home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / srcuc.zip / BCHDEF.C < prev    next >
C/C++ Source or Header  |  1992-06-05  |  124KB  |  2,899 lines
  1. /* Emacs: This is -*- C -*- code. */
  2.  
  3. /* User defined primitive declarations. */
  4.  
  5. #include "usrdef.h"
  6.  
  7. long MAX_PRIMITIVE = 456; /* = 0x1c8 */
  8.  
  9. extern SCHEME_OBJECT
  10.   EXFUN (Prim_bignum_zero_p, (void)),
  11.   EXFUN (Prim_bignum_negative_p, (void)),
  12.   EXFUN (Prim_bignum_positive_p, (void)),
  13.   EXFUN (Prim_bignum_equal_p, (void)),
  14.   EXFUN (Prim_bignum_less_p, (void)),
  15.   EXFUN (Prim_bignum_add, (void)),
  16.   EXFUN (Prim_bignum_subtract, (void)),
  17.   EXFUN (Prim_bignum_multiply, (void)),
  18.   EXFUN (Prim_bignum_divide, (void)),
  19.   EXFUN (Prim_bignum_quotient, (void)),
  20.   EXFUN (Prim_bignum_remainder, (void)),
  21.   EXFUN (Prim_listify_bignum, (void)),
  22.   EXFUN (Prim_fixnum_to_bignum, (void)),
  23.   EXFUN (Prim_bignum_to_fixnum, (void)),
  24.   EXFUN (Prim_flonum_to_bignum, (void)),
  25.   EXFUN (Prim_bignum_to_flonum, (void)),
  26.   EXFUN (Prim_bit_string_allocate, (void)),
  27.   EXFUN (Prim_bit_string_p, (void)),
  28.   EXFUN (Prim_make_bit_string, (void)),
  29.   EXFUN (Prim_bit_string_fill_x, (void)),
  30.   EXFUN (Prim_bit_string_length, (void)),
  31.   EXFUN (Prim_bit_string_ref, (void)),
  32.   EXFUN (Prim_bit_string_clear_x, (void)),
  33.   EXFUN (Prim_bit_string_set_x, (void)),
  34.   EXFUN (Prim_bit_string_zero_p, (void)),
  35.   EXFUN (Prim_bit_string_equal_p, (void)),
  36.   EXFUN (Prim_bit_string_move_x, (void)),
  37.   EXFUN (Prim_bit_string_movec_x, (void)),
  38.   EXFUN (Prim_bit_string_or_x, (void)),
  39.   EXFUN (Prim_bit_string_and_x, (void)),
  40.   EXFUN (Prim_bit_string_andc_x, (void)),
  41.   EXFUN (Prim_bit_string_xor_x, (void)),
  42.   EXFUN (Prim_bit_substring_move_right_x, (void)),
  43.   EXFUN (Prim_unsigned_to_bit_string, (void)),
  44.   EXFUN (Prim_bit_string_to_unsigned, (void)),
  45.   EXFUN (Prim_read_bits_x, (void)),
  46.   EXFUN (Prim_write_bits_x, (void)),
  47.   EXFUN (Prim_bitstr_find_next_set_bit, (void)),
  48.   EXFUN (Prim_microcode_identify, (void)),
  49.   EXFUN (Prim_microcode_tables_filename, (void)),
  50.   EXFUN (Prim_microcode_library_path, (void)),
  51.   EXFUN (Prim_get_command_line, (void)),
  52.   EXFUN (Prim_get_unused_command_line, (void)),
  53.   EXFUN (Prim_reload_save_string, (void)),
  54.   EXFUN (Prim_reload_retrieve_string, (void)),
  55.   EXFUN (Prim_make_char, (void)),
  56.   EXFUN (Prim_char_bits, (void)),
  57.   EXFUN (Prim_char_code, (void)),
  58.   EXFUN (Prim_char_to_integer, (void)),
  59.   EXFUN (Prim_integer_to_char, (void)),
  60.   EXFUN (Prim_char_downcase, (void)),
  61.   EXFUN (Prim_char_upcase, (void)),
  62.   EXFUN (Prim_ascii_to_char, (void)),
  63.   EXFUN (Prim_char_to_ascii, (void)),
  64.   EXFUN (Prim_char_ascii_p, (void)),
  65.   EXFUN (Prim_comp_code_address_block, (void)),
  66.   EXFUN (Prim_comp_code_address_offset, (void)),
  67.   EXFUN (Prim_stack_top_address, (void)),
  68.   EXFUN (Prim_stack_address_offset, (void)),
  69.   EXFUN (Prim_compiled_entry_type, (void)),
  70.   EXFUN (Prim_coerce_to_closure, (void)),
  71.   EXFUN (Prim_compiled_closure_to_entry, (void)),
  72.   EXFUN (Prim_close_lost_open_files, (void)),
  73.   EXFUN (Prim_rehash, (void)),
  74.   EXFUN (Prim_debugging_printer, (void)),
  75.   EXFUN (Prim_floating_vector_cons, (void)),
  76.   EXFUN (Prim_floating_vector_ref, (void)),
  77.   EXFUN (Prim_floating_vector_set, (void)),
  78.   EXFUN (Prim_floating_vector_length, (void)),
  79.   EXFUN (Prim_map_code_to_address, (void)),
  80.   EXFUN (Prim_map_address_to_code, (void)),
  81.   EXFUN (Prim_primitive_procedure_arity, (void)),
  82.   EXFUN (Prim_primitive_procedure_doc, (void)),
  83.   EXFUN (Prim_get_primitive_counts, (void)),
  84.   EXFUN (Prim_get_primitive_name, (void)),
  85.   EXFUN (Prim_get_primitive_address, (void)),
  86.   EXFUN (Prim_binary_fasload, (void)),
  87.   EXFUN (Prim_reload_band_name, (void)),
  88.   EXFUN (Prim_band_load, (void)),
  89.   EXFUN (Prim_zero_fixnum, (void)),
  90.   EXFUN (Prim_negative_fixnum, (void)),
  91.   EXFUN (Prim_positive_fixnum, (void)),
  92.   EXFUN (Prim_equal_fixnum, (void)),
  93.   EXFUN (Prim_less_fixnum, (void)),
  94.   EXFUN (Prim_greater_fixnum, (void)),
  95.   EXFUN (Prim_one_plus_fixnum, (void)),
  96.   EXFUN (Prim_m_1_plus_fixnum, (void)),
  97.   EXFUN (Prim_plus_fixnum, (void)),
  98.   EXFUN (Prim_minus_fixnum, (void)),
  99.   EXFUN (Prim_fixnum_negate, (void)),
  100.   EXFUN (Prim_multiply_fixnum, (void)),
  101.   EXFUN (Prim_divide_fixnum, (void)),
  102.   EXFUN (Prim_fixnum_quotient, (void)),
  103.   EXFUN (Prim_fixnum_remainder, (void)),
  104.   EXFUN (Prim_gcd_fixnum, (void)),
  105.   EXFUN (Prim_fixnum_andc, (void)),
  106.   EXFUN (Prim_fixnum_and, (void)),
  107.   EXFUN (Prim_fixnum_or, (void)),
  108.   EXFUN (Prim_fixnum_xor, (void)),
  109.   EXFUN (Prim_fixnum_not, (void)),
  110.   EXFUN (Prim_fixnum_lsh, (void)),
  111.   EXFUN (Prim_flonum_add, (void)),
  112.   EXFUN (Prim_flonum_subtract, (void)),
  113.   EXFUN (Prim_flonum_multiply, (void)),
  114.   EXFUN (Prim_flonum_divide, (void)),
  115.   EXFUN (Prim_flonum_negate, (void)),
  116.   EXFUN (Prim_flonum_abs, (void)),
  117.   EXFUN (Prim_flonum_equal_p, (void)),
  118.   EXFUN (Prim_flonum_less_p, (void)),
  119.   EXFUN (Prim_flonum_greater_p, (void)),
  120.   EXFUN (Prim_flonum_zero_p, (void)),
  121.   EXFUN (Prim_flonum_positive_p, (void)),
  122.   EXFUN (Prim_flonum_negative_p, (void)),
  123.   EXFUN (Prim_flonum_exp, (void)),
  124.   EXFUN (Prim_flonum_log, (void)),
  125.   EXFUN (Prim_flonum_sin, (void)),
  126.   EXFUN (Prim_flonum_cos, (void)),
  127.   EXFUN (Prim_flonum_tan, (void)),
  128.   EXFUN (Prim_flonum_asin, (void)),
  129.   EXFUN (Prim_flonum_acos, (void)),
  130.   EXFUN (Prim_flonum_atan, (void)),
  131.   EXFUN (Prim_flonum_atan2, (void)),
  132.   EXFUN (Prim_flonum_sqrt, (void)),
  133.   EXFUN (Prim_flonum_expt, (void)),
  134.   EXFUN (Prim_flonum_p, (void)),
  135.   EXFUN (Prim_flonum_integer_p, (void)),
  136.   EXFUN (Prim_flonum_floor, (void)),
  137.   EXFUN (Prim_flonum_ceiling, (void)),
  138.   EXFUN (Prim_flonum_truncate, (void)),
  139.   EXFUN (Prim_flonum_round, (void)),
  140.   EXFUN (Prim_flonum_truncate_to_exact, (void)),
  141.   EXFUN (Prim_flonum_floor_to_exact, (void)),
  142.   EXFUN (Prim_flonum_ceiling_to_exact, (void)),
  143.   EXFUN (Prim_flonum_round_to_exact, (void)),
  144.   EXFUN (Prim_flonum_normalize, (void)),
  145.   EXFUN (Prim_flonum_denormalize, (void)),
  146.   EXFUN (Prim_zero, (void)),
  147.   EXFUN (Prim_positive, (void)),
  148.   EXFUN (Prim_negative, (void)),
  149.   EXFUN (Prim_add_one, (void)),
  150.   EXFUN (Prim_subtract_one, (void)),
  151.   EXFUN (Prim_equal_number, (void)),
  152.   EXFUN (Prim_less, (void)),
  153.   EXFUN (Prim_greater, (void)),
  154.   EXFUN (Prim_add, (void)),
  155.   EXFUN (Prim_subtract, (void)),
  156.   EXFUN (Prim_multiply, (void)),
  157.   EXFUN (Prim_divide, (void)),
  158.   EXFUN (Prim_quotient, (void)),
  159.   EXFUN (Prim_remainder, (void)),
  160.   EXFUN (Prim_modulo, (void)),
  161.   EXFUN (Prim_apply, (void)),
  162.   EXFUN (Prim_catch, (void)),
  163.   EXFUN (Prim_non_reentrant_catch, (void)),
  164.   EXFUN (Prim_within_control_point, (void)),
  165.   EXFUN (Prim_error_procedure, (void)),
  166.   EXFUN (Prim_scode_eval, (void)),
  167.   EXFUN (Prim_force, (void)),
  168.   EXFUN (Prim_execute_at_new_point, (void)),
  169.   EXFUN (Prim_translate_to_point, (void)),
  170.   EXFUN (Prim_make_state_space, (void)),
  171.   EXFUN (Prim_current_dynamic_state, (void)),
  172.   EXFUN (Prim_set_dynamic_state, (void)),
  173.   EXFUN (Prim_get_interrupt_enables, (void)),
  174.   EXFUN (Prim_set_interrupt_enables, (void)),
  175.   EXFUN (Prim_clear_interrupts, (void)),
  176.   EXFUN (Prim_disable_interrupts, (void)),
  177.   EXFUN (Prim_enable_interrupts, (void)),
  178.   EXFUN (Prim_return_to_application, (void)),
  179.   EXFUN (Prim_with_stack_marker, (void)),
  180.   EXFUN (Prim_with_interrupt_mask, (void)),
  181.   EXFUN (Prim_with_interrupts_reduced, (void)),
  182.   EXFUN (Prim_set_current_history, (void)),
  183.   EXFUN (Prim_with_history_disabled, (void)),
  184.   EXFUN (Prim_get_fluid_bindings, (void)),
  185.   EXFUN (Prim_set_fluid_bindings, (void)),
  186.   EXFUN (Prim_get_fixed_objects_vector, (void)),
  187.   EXFUN (Prim_set_fixed_objects_vector, (void)),
  188.   EXFUN (Prim_hunk3_cons, (void)),
  189.   EXFUN (Prim_hunk3_cxr, (void)),
  190.   EXFUN (Prim_hunk3_set_cxr, (void)),
  191.   EXFUN (Prim_sys_h3_0, (void)),
  192.   EXFUN (Prim_sys_h3_1, (void)),
  193.   EXFUN (Prim_sys_h3_2, (void)),
  194.   EXFUN (Prim_sh3_set_0, (void)),
  195.   EXFUN (Prim_sh3_set_1, (void)),
  196.   EXFUN (Prim_sh3_set_2, (void)),
  197.   EXFUN (Prim_find_symbol, (void)),
  198.   EXFUN (Prim_string_to_symbol, (void)),
  199.   EXFUN (Prim_string_hash, (void)),
  200.   EXFUN (Prim_string_hash_mod, (void)),
  201.   EXFUN (Prim_integer_zero_p, (void)),
  202.   EXFUN (Prim_integer_negative_p, (void)),
  203.   EXFUN (Prim_integer_positive_p, (void)),
  204.   EXFUN (Prim_integer_equal_p, (void)),
  205.   EXFUN (Prim_integer_less_p, (void)),
  206.   EXFUN (Prim_integer_greater_p, (void)),
  207.   EXFUN (Prim_integer_add, (void)),
  208.   EXFUN (Prim_integer_subtract, (void)),
  209.   EXFUN (Prim_integer_multiply, (void)),
  210.   EXFUN (Prim_integer_negate, (void)),
  211.   EXFUN (Prim_integer_add_1, (void)),
  212.   EXFUN (Prim_integer_subtract_1, (void)),
  213.   EXFUN (Prim_integer_divide, (void)),
  214.   EXFUN (Prim_integer_quotient, (void)),
  215.   EXFUN (Prim_integer_remainder, (void)),
  216.   EXFUN (Prim_integer_p, (void)),
  217.   EXFUN (Prim_integer_to_flonum, (void)),
  218.   EXFUN (Prim_pair, (void)),
  219.   EXFUN (Prim_cons, (void)),
  220.   EXFUN (Prim_car, (void)),
  221.   EXFUN (Prim_cdr, (void)),
  222.   EXFUN (Prim_set_car, (void)),
  223.   EXFUN (Prim_set_cdr, (void)),
  224.   EXFUN (Prim_general_car_cdr, (void)),
  225.   EXFUN (Prim_length, (void)),
  226.   EXFUN (Prim_memq, (void)),
  227.   EXFUN (Prim_assq, (void)),
  228.   EXFUN (Prim_sys_pair, (void)),
  229.   EXFUN (Prim_sys_pair_cons, (void)),
  230.   EXFUN (Prim_sys_pair_car, (void)),
  231.   EXFUN (Prim_sys_pair_cdr, (void)),
  232.   EXFUN (Prim_sys_set_car, (void)),
  233.   EXFUN (Prim_sys_set_cdr, (void)),
  234.   EXFUN (Prim_lexical_assignment, (void)),
  235.   EXFUN (Prim_lexical_reference, (void)),
  236.   EXFUN (Prim_local_reference, (void)),
  237.   EXFUN (Prim_local_assignment, (void)),
  238.   EXFUN (Prim_unassigned_test, (void)),
  239.   EXFUN (Prim_unbound_test, (void)),
  240.   EXFUN (Prim_unreferenceable_test, (void)),
  241.   EXFUN (Prim_environment_link_name, (void)),
  242.   EXFUN (Prim_prim_obj_type, (void)),
  243.   EXFUN (Prim_prim_obj_gc_type, (void)),
  244.   EXFUN (Prim_prim_obj_type_p, (void)),
  245.   EXFUN (Prim_prim_obj_datum, (void)),
  246.   EXFUN (Prim_make_non_pointer_object, (void)),
  247.   EXFUN (Prim_prim_obj_set_type, (void)),
  248.   EXFUN (Prim_prim_obj_eq_p, (void)),
  249.   EXFUN (Prim_prim_obj_ref, (void)),
  250.   EXFUN (Prim_prim_obj_set, (void)),
  251.   EXFUN (Prim_object_type, (void)),
  252.   EXFUN (Prim_object_gc_type, (void)),
  253.   EXFUN (Prim_object_type_p, (void)),
  254.   EXFUN (Prim_object_datum, (void)),
  255.   EXFUN (Prim_object_set_type, (void)),
  256.   EXFUN (Prim_eq, (void)),
  257.   EXFUN (Prim_not, (void)),
  258.   EXFUN (Prim_make_cell, (void)),
  259.   EXFUN (Prim_cell_p, (void)),
  260.   EXFUN (Prim_cell_contents, (void)),
  261.   EXFUN (Prim_set_cell_contents, (void)),
  262.   EXFUN (Prim_impurify, (void)),
  263.   EXFUN (Prim_pure_p, (void)),
  264.   EXFUN (Prim_constant_p, (void)),
  265.   EXFUN (Prim_get_next_constant, (void)),
  266.   EXFUN (Prim_re_char_set_adjoin, (void)),
  267.   EXFUN (Prim_re_compile_fastmap, (void)),
  268.   EXFUN (Prim_re_match_substring, (void)),
  269.   EXFUN (Prim_re_search_substr_forward, (void)),
  270.   EXFUN (Prim_re_search_substr_backward, (void)),
  271.   EXFUN (Prim_re_match_buffer, (void)),
  272.   EXFUN (Prim_re_search_buffer_forward, (void)),
  273.   EXFUN (Prim_re_search_buffer_backward, (void)),
  274.   EXFUN (Prim_eval_step, (void)),
  275.   EXFUN (Prim_apply_step, (void)),
  276.   EXFUN (Prim_return_step, (void)),
  277.   EXFUN (Prim_string_allocate, (void)),
  278.   EXFUN (Prim_string_p, (void)),
  279.   EXFUN (Prim_string_length, (void)),
  280.   EXFUN (Prim_string_maximum_length, (void)),
  281.   EXFUN (Prim_set_string_length, (void)),
  282.   EXFUN (Prim_set_string_maximum_length, (void)),
  283.   EXFUN (Prim_string_ref, (void)),
  284.   EXFUN (Prim_vec_8b_ref, (void)),
  285.   EXFUN (Prim_string_set, (void)),
  286.   EXFUN (Prim_vec_8b_set, (void)),
  287.   EXFUN (Prim_substring_move_right, (void)),
  288.   EXFUN (Prim_substring_move_left, (void)),
  289.   EXFUN (Prim_substring_upcase, (void)),
  290.   EXFUN (Prim_substring_downcase, (void)),
  291.   EXFUN (Prim_vec_8b_fill, (void)),
  292.   EXFUN (Prim_vec_8b_find_next_char, (void)),
  293.   EXFUN (Prim_vec_8b_find_prev_char, (void)),
  294.   EXFUN (Prim_vec_8b_find_next_char_ci, (void)),
  295.   EXFUN (Prim_vec_8b_find_prev_char_ci, (void)),
  296.   EXFUN (Prim_find_next_char_in_set, (void)),
  297.   EXFUN (Prim_find_prev_char_in_set, (void)),
  298.   EXFUN (Prim_substring_equal, (void)),
  299.   EXFUN (Prim_substring_ci_equal, (void)),
  300.   EXFUN (Prim_substring_less, (void)),
  301.   EXFUN (Prim_match_forward, (void)),
  302.   EXFUN (Prim_match_forward_ci, (void)),
  303.   EXFUN (Prim_match_backward, (void)),
  304.   EXFUN (Prim_match_backward_ci, (void)),
  305.   EXFUN (Prim_string_to_syntax_entry, (void)),
  306.   EXFUN (Prim_char_to_syntax_code, (void)),
  307.   EXFUN (Prim_quoted_char_p, (void)),
  308.   EXFUN (Prim_scan_backward_prefix_chars, (void)),
  309.   EXFUN (Prim_scan_forward_prefix_chars, (void)),
  310.   EXFUN (Prim_scan_forward_to_word, (void)),
  311.   EXFUN (Prim_scan_word_forward, (void)),
  312.   EXFUN (Prim_scan_word_backward, (void)),
  313.   EXFUN (Prim_scan_list_forward, (void)),
  314.   EXFUN (Prim_scan_list_backward, (void)),
  315.   EXFUN (Prim_scan_sexps_forward, (void)),
  316.   EXFUN (Prim_non_restartable_exit, (void)),
  317.   EXFUN (Prim_non_restartable_exit_with_value, (void)),
  318.   EXFUN (Prim_restartable_exit, (void)),
  319.   EXFUN (Prim_under_emacs_p, (void)),
  320.   EXFUN (Prim_set_run_light, (void)),
  321.   EXFUN (Prim_gc_space_status, (void)),
  322.   EXFUN (Prim_set_trap_state, (void)),
  323.   EXFUN (Prim_termcap_param_string, (void)),
  324.   EXFUN (Prim_termcap_goto_string, (void)),
  325.   EXFUN (Prim_termcap_pad_string, (void)),
  326.   EXFUN (Prim_vector_cons, (void)),
  327.   EXFUN (Prim_vector, (void)),
  328.   EXFUN (Prim_sys_vector, (void)),
  329.   EXFUN (Prim_vector_size, (void)),
  330.   EXFUN (Prim_sys_vec_size, (void)),
  331.   EXFUN (Prim_vector_ref, (void)),
  332.   EXFUN (Prim_sys_vector_ref, (void)),
  333.   EXFUN (Prim_vector_set, (void)),
  334.   EXFUN (Prim_sys_vec_set, (void)),
  335.   EXFUN (Prim_subvector_to_list, (void)),
  336.   EXFUN (Prim_sys_subvector_to_list, (void)),
  337.   EXFUN (Prim_list_to_vector, (void)),
  338.   EXFUN (Prim_sys_list_to_vector, (void)),
  339.   EXFUN (Prim_subvector_move_right, (void)),
  340.   EXFUN (Prim_subvector_move_left, (void)),
  341.   EXFUN (Prim_vector_fill, (void)),
  342.   EXFUN (Prim_get_decoded_time, (void)),
  343.   EXFUN (Prim_current_year, (void)),
  344.   EXFUN (Prim_current_month, (void)),
  345.   EXFUN (Prim_current_day, (void)),
  346.   EXFUN (Prim_current_hour, (void)),
  347.   EXFUN (Prim_current_minute, (void)),
  348.   EXFUN (Prim_current_second, (void)),
  349.   EXFUN (Prim_system_clock, (void)),
  350.   EXFUN (Prim_real_time_clock, (void)),
  351.   EXFUN (Prim_process_timer_clear, (void)),
  352.   EXFUN (Prim_process_timer_set, (void)),
  353.   EXFUN (Prim_real_timer_clear, (void)),
  354.   EXFUN (Prim_real_timer_set, (void)),
  355.   EXFUN (Prim_setup_timer_interrupt, (void)),
  356.   EXFUN (Prim_working_dir_pathname, (void)),
  357.   EXFUN (Prim_set_working_dir_pathname, (void)),
  358.   EXFUN (Prim_get_environment_variable, (void)),
  359.   EXFUN (Prim_current_user_name, (void)),
  360.   EXFUN (Prim_current_user_home_directory, (void)),
  361.   EXFUN (Prim_system_call_error_message, (void)),
  362.   EXFUN (Prim_file_open_input_channel, (void)),
  363.   EXFUN (Prim_file_open_output_channel, (void)),
  364.   EXFUN (Prim_file_open_binary_input_channel, (void)),
  365.   EXFUN (Prim_file_open_binary_output_channel, (void)),
  366.   EXFUN (Prim_file_open_io_channel, (void)),
  367.   EXFUN (Prim_file_open_append_channel, (void)),
  368.   EXFUN (Prim_file_open_channel, (void)),
  369.   EXFUN (Prim_file_length, (void)),
  370.   EXFUN (Prim_file_position, (void)),
  371.   EXFUN (Prim_file_set_position, (void)),
  372.   EXFUN (Prim_file_exists_p, (void)),
  373.   EXFUN (Prim_file_access, (void)),
  374.   EXFUN (Prim_file_directory_p, (void)),
  375.   EXFUN (Prim_file_soft_link_p, (void)),
  376.   EXFUN (Prim_file_remove, (void)),
  377.   EXFUN (Prim_file_remove_link, (void)),
  378.   EXFUN (Prim_file_rename, (void)),
  379.   EXFUN (Prim_file_link_hard, (void)),
  380.   EXFUN (Prim_file_link_soft, (void)),
  381.   EXFUN (Prim_link_file, (void)),
  382.   EXFUN (Prim_file_copy, (void)),
  383.   EXFUN (Prim_directory_make, (void)),
  384.   EXFUN (Prim_directory_open_noread, (void)),
  385.   EXFUN (Prim_directory_close, (void)),
  386.   EXFUN (Prim_directory_open, (void)),
  387.   EXFUN (Prim_directory_read, (void)),
  388.   EXFUN (Prim_directory_read_matching, (void)),
  389.   EXFUN (Prim_new_directory_open, (void)),
  390.   EXFUN (Prim_new_directory_close, (void)),
  391.   EXFUN (Prim_new_directory_read, (void)),
  392.   EXFUN (Prim_new_directory_read_match, (void)),
  393.   EXFUN (Prim_channel_close, (void)),
  394.   EXFUN (Prim_channel_table, (void)),
  395.   EXFUN (Prim_channel_type, (void)),
  396.   EXFUN (Prim_channel_read, (void)),
  397.   EXFUN (Prim_channel_write, (void)),
  398.   EXFUN (Prim_channel_blocking_p, (void)),
  399.   EXFUN (Prim_channel_nonblocking, (void)),
  400.   EXFUN (Prim_channel_blocking, (void)),
  401.   EXFUN (Prim_make_pipe, (void)),
  402.   EXFUN (Prim_channel_registered_p, (void)),
  403.   EXFUN (Prim_channel_register, (void)),
  404.   EXFUN (Prim_channel_unregister, (void)),
  405.   EXFUN (Prim_channel_select_then_read, (void)),
  406.   EXFUN (Prim_terminal_get_ispeed, (void)),
  407.   EXFUN (Prim_terminal_get_ospeed, (void)),
  408.   EXFUN (Prim_baud_index_to_rate, (void)),
  409.   EXFUN (Prim_baud_rate_to_index, (void)),
  410.   EXFUN (Prim_terminal_get_state, (void)),
  411.   EXFUN (Prim_terminal_set_state, (void)),
  412.   EXFUN (Prim_terminal_cooked_output_p, (void)),
  413.   EXFUN (Prim_terminal_raw_output, (void)),
  414.   EXFUN (Prim_terminal_cooked_output, (void)),
  415.   EXFUN (Prim_terminal_buffered_p, (void)),
  416.   EXFUN (Prim_terminal_buffered, (void)),
  417.   EXFUN (Prim_terminal_nonbuffered, (void)),
  418.   EXFUN (Prim_terminal_flush_input, (void)),
  419.   EXFUN (Prim_terminal_flush_output, (void)),
  420.   EXFUN (Prim_terminal_drain_output, (void)),
  421.   EXFUN (Prim_os_job_control_p, (void)),
  422.   EXFUN (Prim_have_ptys_p, (void)),
  423.   EXFUN (Prim_tty_input_channel, (void)),
  424.   EXFUN (Prim_tty_output_channel, (void)),
  425.   EXFUN (Prim_tty_x_size, (void)),
  426.   EXFUN (Prim_tty_y_size, (void)),
  427.   EXFUN (Prim_tty_command_beep, (void)),
  428.   EXFUN (Prim_tty_command_clear, (void)),
  429.   EXFUN (Prim_tty_next_interrupt_char, (void)),
  430.   EXFUN (Prim_tty_get_interrupt_enables, (void)),
  431.   EXFUN (Prim_tty_set_interrupt_enables, (void)),
  432.   EXFUN (Prim_tty_get_interrupt_chars, (void)),
  433.   EXFUN (Prim_tty_set_interrupt_chars, (void)),
  434.   EXFUN (Prim_current_file_time, (void)),
  435.   EXFUN (Prim_file_time_to_string, (void)),
  436.   EXFUN (Prim_get_user_home_directory, (void)),
  437.   EXFUN (Prim_uid_to_string, (void)),
  438.   EXFUN (Prim_gid_to_string, (void)),
  439.   EXFUN (Prim_current_uid, (void)),
  440.   EXFUN (Prim_current_gid, (void)),
  441.   EXFUN (Prim_system, (void)),
  442.   EXFUN (Prim_unix_environment_alist, (void)),
  443.   EXFUN (Prim_full_hostname, (void)),
  444.   EXFUN (Prim_hostname, (void)),
  445.   EXFUN (Prim_dos_set_kbd_mod_mask, (void)),
  446.   EXFUN (Prim_dos_set_keyboard_translation, (void)),
  447.   EXFUN (Prim_file_modes, (void)),
  448.   EXFUN (Prim_set_file_modes, (void)),
  449.   EXFUN (Prim_file_mod_time, (void)),
  450.   EXFUN (Prim_file_mod_time_indirect, (void)),
  451.   EXFUN (Prim_file_attributes, (void)),
  452.   EXFUN (Prim_file_attributes_indirect, (void)),
  453.   EXFUN (Prim_file_touch, (void)),
  454.   EXFUN (Prim_set_file_times, (void)),
  455.   EXFUN (Prim_file_eq_p, (void)),
  456.   EXFUN (Prim_keyboard_get_conversion, (void)),
  457.   EXFUN (Prim_keyboard_set_conversion, (void)),
  458.   EXFUN (Prim_consume_typeahead, (void)),
  459.   EXFUN (Prim_prim_fasdump, (void)),
  460.   EXFUN (Prim_band_dump, (void)),
  461.   EXFUN (Prim_garbage_collect, (void)),
  462.   EXFUN (Prim_bchscheme_stat_names, (void)),
  463.   EXFUN (Prim_bchscheme_read_stats, (void)),
  464.   EXFUN (Prim_bchscheme_get_params, (void)),
  465.   EXFUN (Prim_bchscheme_set_params, (void)),
  466.   EXFUN (Prim_primitive_purify, (void));
  467.  
  468. SCHEME_OBJECT
  469. DEFUN_VOID (Prim_inexistent)
  470. {
  471.   PRIMITIVE_HEADER (-1);
  472.  
  473.   signal_error_from_primitive (ERR_UNIMPLEMENTED_PRIMITIVE);
  474.   /*NOTREACHED*/
  475. }
  476.  
  477. SCHEME_OBJECT EXFUN ((* (Primitive_Procedure_Table [])), (void)) = {
  478.   Prim_multiply                        /*  2 &*                                           Primitive   0x0 in generic.c */,
  479.   Prim_add                             /*  2 &+                                           Primitive   0x1 in generic.c */,
  480.   Prim_subtract                        /*  2 &-                                           Primitive   0x2 in generic.c */,
  481.   Prim_divide                          /*  2 &/                                           Primitive   0x3 in generic.c */,
  482.   Prim_less                            /*  2 &<                                           Primitive   0x4 in generic.c */,
  483.   Prim_equal_number                    /*  2 &=                                           Primitive   0x5 in generic.c */,
  484.   Prim_greater                         /*  2 &>                                           Primitive   0x6 in generic.c */,
  485.   Prim_subtract_one                    /*  1 -1+                                          Primitive   0x7 in generic.c */,
  486.   Prim_add_one                         /*  1 1+                                           Primitive   0x8 in generic.c */,
  487.   Prim_apply                           /*  2 APPLY                                        Primitive   0x9 in hooks.c */,
  488.   Prim_ascii_to_char                   /*  1 ASCII->CHAR                                  Primitive   0xa in char.c */,
  489.   Prim_assq                            /*  2 ASSQ                                         Primitive   0xb in list.c */,
  490.   Prim_baud_index_to_rate              /*  1 BAUD-INDEX->RATE                             Primitive   0xc in prosterm.c */,
  491.   Prim_baud_rate_to_index              /*  1 BAUD-RATE->INDEX                             Primitive   0xd in prosterm.c */,
  492.   Prim_bchscheme_get_params            /*  0 BCHSCHEME-PARAMETERS-GET                     Primitive   0xe in bchmmg.c */,
  493.   Prim_bchscheme_set_params            /*  1 BCHSCHEME-PARAMETERS-SET!                    Primitive   0xf in bchmmg.c */,
  494.   Prim_bchscheme_stat_names            /*  0 BCHSCHEME-STATISTICS-NAMES                   Primitive  0x10 in bchmmg.c */,
  495.   Prim_bchscheme_read_stats            /*  1 BCHSCHEME-STATISTICS-READ!                   Primitive  0x11 in bchmmg.c */,
  496.   Prim_bignum_to_fixnum                /*  1 BIGNUM->FIXNUM                               Primitive  0x12 in bigprm.c */,
  497.   Prim_bignum_to_flonum                /*  1 BIGNUM->FLONUM                               Primitive  0x13 in bigprm.c */,
  498.   Prim_bignum_add                      /*  2 BIGNUM-ADD                                   Primitive  0x14 in bigprm.c */,
  499.   Prim_bignum_divide                   /*  2 BIGNUM-DIVIDE                                Primitive  0x15 in bigprm.c */,
  500.   Prim_bignum_equal_p                  /*  2 BIGNUM-EQUAL?                                Primitive  0x16 in bigprm.c */,
  501.   Prim_bignum_less_p                   /*  2 BIGNUM-LESS?                                 Primitive  0x17 in bigprm.c */,
  502.   Prim_bignum_multiply                 /*  2 BIGNUM-MULTIPLY                              Primitive  0x18 in bigprm.c */,
  503.   Prim_bignum_negative_p               /*  1 BIGNUM-NEGATIVE?                             Primitive  0x19 in bigprm.c */,
  504.   Prim_bignum_positive_p               /*  1 BIGNUM-POSITIVE?                             Primitive  0x1a in bigprm.c */,
  505.   Prim_bignum_quotient                 /*  2 BIGNUM-QUOTIENT                              Primitive  0x1b in bigprm.c */,
  506.   Prim_bignum_remainder                /*  2 BIGNUM-REMAINDER                             Primitive  0x1c in bigprm.c */,
  507.   Prim_bignum_subtract                 /*  2 BIGNUM-SUBTRACT                              Primitive  0x1d in bigprm.c */,
  508.   Prim_bignum_zero_p                   /*  1 BIGNUM-ZERO?                                 Primitive  0x1e in bigprm.c */,
  509.   Prim_binary_fasload                  /*  1 BINARY-FASLOAD                               Primitive  0x1f in fasload.c */,
  510.   Prim_bit_string_to_unsigned          /*  1 BIT-STRING->UNSIGNED-INTEGER                 Primitive  0x20 in bitstr.c */,
  511.   Prim_bit_string_allocate             /*  1 BIT-STRING-ALLOCATE                          Primitive  0x21 in bitstr.c */,
  512.   Prim_bit_string_and_x                /*  2 BIT-STRING-AND!                              Primitive  0x22 in bitstr.c */,
  513.   Prim_bit_string_andc_x               /*  2 BIT-STRING-ANDC!                             Primitive  0x23 in bitstr.c */,
  514.   Prim_bit_string_clear_x              /*  2 BIT-STRING-CLEAR!                            Primitive  0x24 in bitstr.c */,
  515.   Prim_bit_string_fill_x               /*  2 BIT-STRING-FILL!                             Primitive  0x25 in bitstr.c */,
  516.   Prim_bit_string_length               /*  1 BIT-STRING-LENGTH                            Primitive  0x26 in bitstr.c */,
  517.   Prim_bit_string_move_x               /*  2 BIT-STRING-MOVE!                             Primitive  0x27 in bitstr.c */,
  518.   Prim_bit_string_movec_x              /*  2 BIT-STRING-MOVEC!                            Primitive  0x28 in bitstr.c */,
  519.   Prim_bit_string_or_x                 /*  2 BIT-STRING-OR!                               Primitive  0x29 in bitstr.c */,
  520.   Prim_bit_string_ref                  /*  2 BIT-STRING-REF                               Primitive  0x2a in bitstr.c */,
  521.   Prim_bit_string_set_x                /*  2 BIT-STRING-SET!                              Primitive  0x2b in bitstr.c */,
  522.   Prim_bit_string_xor_x                /*  2 BIT-STRING-XOR!                              Primitive  0x2c in bitstr.c */,
  523.   Prim_bit_string_zero_p               /*  1 BIT-STRING-ZERO?                             Primitive  0x2d in bitstr.c */,
  524.   Prim_bit_string_equal_p              /*  2 BIT-STRING=?                                 Primitive  0x2e in bitstr.c */,
  525.   Prim_bit_string_p                    /*  1 BIT-STRING?                                  Primitive  0x2f in bitstr.c */,
  526.   Prim_bitstr_find_next_set_bit        /*  3 BIT-SUBSTRING-FIND-NEXT-SET-BIT              Primitive  0x30 in bitstr.c */,
  527.   Prim_bit_substring_move_right_x      /*  5 BIT-SUBSTRING-MOVE-RIGHT!                    Primitive  0x31 in bitstr.c */,
  528.   Prim_catch                           /*  1 CALL-WITH-CURRENT-CONTINUATION               Primitive  0x32 in hooks.c */,
  529.   Prim_car                             /*  1 CAR                                          Primitive  0x33 in list.c */,
  530.   Prim_cdr                             /*  1 CDR                                          Primitive  0x34 in list.c */,
  531.   Prim_cell_contents                   /*  1 CELL-CONTENTS                                Primitive  0x35 in prim.c */,
  532.   Prim_cell_p                          /*  1 CELL?                                        Primitive  0x36 in prim.c */,
  533.   Prim_channel_blocking                /*  1 CHANNEL-BLOCKING                             Primitive  0x37 in prosio.c */,
  534.   Prim_channel_blocking_p              /*  1 CHANNEL-BLOCKING?                            Primitive  0x38 in prosio.c */,
  535.   Prim_channel_close                   /*  1 CHANNEL-CLOSE                                Primitive  0x39 in prosio.c */,
  536.   Prim_channel_nonblocking             /*  1 CHANNEL-NONBLOCKING                          Primitive  0x3a in prosio.c */,
  537.   Prim_channel_read                    /*  4 CHANNEL-READ                                 Primitive  0x3b in prosio.c */,
  538.   Prim_channel_register                /*  1 CHANNEL-REGISTER                             Primitive  0x3c in prosio.c */,
  539.   Prim_channel_registered_p            /*  1 CHANNEL-REGISTERED?                          Primitive  0x3d in prosio.c */,
  540.   Prim_channel_select_then_read        /*  4 CHANNEL-SELECT-THEN-READ                     Primitive  0x3e in prosio.c */,
  541.   Prim_channel_table                   /*  0 CHANNEL-TABLE                                Primitive  0x3f in prosio.c */,
  542.   Prim_channel_type                    /*  1 CHANNEL-TYPE                                 Primitive  0x40 in prosio.c */,
  543.   Prim_channel_unregister              /*  1 CHANNEL-UNREGISTER                           Primitive  0x41 in prosio.c */,
  544.   Prim_channel_write                   /*  4 CHANNEL-WRITE                                Primitive  0x42 in prosio.c */,
  545.   Prim_char_to_ascii                   /*  1 CHAR->ASCII                                  Primitive  0x43 in char.c */,
  546.   Prim_char_to_integer                 /*  1 CHAR->INTEGER                                Primitive  0x44 in char.c */,
  547.   Prim_char_to_syntax_code             /*  2 CHAR->SYNTAX-CODE                            Primitive  0x45 in syntax.c */,
  548.   Prim_char_ascii_p                    /*  1 CHAR-ASCII?                                  Primitive  0x46 in char.c */,
  549.   Prim_char_bits                       /*  1 CHAR-BITS                                    Primitive  0x47 in char.c */,
  550.   Prim_char_code                       /*  1 CHAR-CODE                                    Primitive  0x48 in char.c */,
  551.   Prim_char_downcase                   /*  1 CHAR-DOWNCASE                                Primitive  0x49 in char.c */,
  552.   Prim_char_upcase                     /*  1 CHAR-UPCASE                                  Primitive  0x4a in char.c */,
  553.   Prim_clear_interrupts                /*  1 CLEAR-INTERRUPTS!                            Primitive  0x4b in hooks.c */,
  554.   Prim_close_lost_open_files           /*  1 CLOSE-LOST-OPEN-FILES                        Primitive  0x4c in daemon.c */,
  555.   Prim_coerce_to_closure               /*  2 COERCE-TO-COMPILED-PROCEDURE                 Primitive  0x4d in comutl.c */,
  556.   Prim_compiled_closure_to_entry       /*  1 COMPILED-CLOSURE->ENTRY                      Primitive  0x4e in comutl.c */,
  557.   Prim_comp_code_address_block         /*  1 COMPILED-CODE-ADDRESS->BLOCK                 Primitive  0x4f in comutl.c */,
  558.   Prim_comp_code_address_offset        /*  1 COMPILED-CODE-ADDRESS->OFFSET                Primitive  0x50 in comutl.c */,
  559.   Prim_compiled_entry_type             /*  1 COMPILED-ENTRY-KIND                          Primitive  0x51 in comutl.c */,
  560.   Prim_cons                            /*  2 CONS                                         Primitive  0x52 in list.c */,
  561.   Prim_constant_p                      /*  1 CONSTANT?                                    Primitive  0x53 in purutl.c */,
  562.   Prim_consume_typeahead               /*  0 CONSUME-TYPEAHEAD                            Primitive  0x54 in dosconio.c */,
  563.   Prim_current_day                     /*  0 CURRENT-DAY                                  Primitive  0x55 in prosenv.c */,
  564.   Prim_current_dynamic_state           /*  1 CURRENT-DYNAMIC-STATE                        Primitive  0x56 in hooks.c */,
  565.   Prim_current_file_time               /*  0 CURRENT-FILE-TIME                            Primitive  0x57 in prdosenv.c */,
  566.   Prim_current_gid                     /*  0 CURRENT-GID                                  Primitive  0x58 in prdosenv.c */,
  567.   Prim_current_hour                    /*  0 CURRENT-HOUR                                 Primitive  0x59 in prosenv.c */,
  568.   Prim_current_minute                  /*  0 CURRENT-MINUTE                               Primitive  0x5a in prosenv.c */,
  569.   Prim_current_month                   /*  0 CURRENT-MONTH                                Primitive  0x5b in prosenv.c */,
  570.   Prim_current_second                  /*  0 CURRENT-SECOND                               Primitive  0x5c in prosenv.c */,
  571.   Prim_current_uid                     /*  0 CURRENT-UID                                  Primitive  0x5d in prdosenv.c */,
  572.   Prim_current_user_home_directory     /*  0 CURRENT-USER-HOME-DIRECTORY                  Primitive  0x5e in prosenv.c */,
  573.   Prim_current_user_name               /*  0 CURRENT-USER-NAME                            Primitive  0x5f in prosenv.c */,
  574.   Prim_current_year                    /*  0 CURRENT-YEAR                                 Primitive  0x60 in prosenv.c */,
  575.   Prim_debugging_printer               /*  1 DEBUGGING-PRINTER                            Primitive  0x61 in debug.c */,
  576.   Prim_directory_close                 /*  0 DIRECTORY-CLOSE                              Primitive  0x62 in prosfs.c */,
  577.   Prim_directory_make                  /*  1 DIRECTORY-MAKE                               Primitive  0x63 in prosfs.c */,
  578.   Prim_directory_open                  /*  1 DIRECTORY-OPEN                               Primitive  0x64 in prosfs.c */,
  579.   Prim_directory_open_noread           /*  1 DIRECTORY-OPEN-NOREAD                        Primitive  0x65 in prosfs.c */,
  580.   Prim_directory_read                  /*  0 DIRECTORY-READ                               Primitive  0x66 in prosfs.c */,
  581.   Prim_directory_read_matching         /*  1 DIRECTORY-READ-MATCHING                      Primitive  0x67 in prosfs.c */,
  582.   Prim_disable_interrupts              /*  1 DISABLE-INTERRUPTS!                          Primitive  0x68 in hooks.c */,
  583.   Prim_divide_fixnum                   /*  2 DIVIDE-FIXNUM                                Primitive  0x69 in fixnum.c */,
  584.   Prim_dos_set_kbd_mod_mask            /*  1 DOS-SET-KEYBOARD-MODIFIER-MASK!              Primitive  0x6a in prdosenv.c */,
  585.   Prim_dos_set_keyboard_translation    /*  3 DOS-SET-KEYBOARD-TRANSLATION!                Primitive  0x6b in prdosenv.c */,
  586.   Prim_band_dump                       /*  2 DUMP-BAND                                    Primitive  0x6c in bchdmp.c */,
  587.   Prim_enable_interrupts               /*  1 ENABLE-INTERRUPTS!                           Primitive  0x6d in hooks.c */,
  588.   Prim_environment_link_name           /*  3 ENVIRONMENT-LINK-NAME                        Primitive  0x6e in lookprm.c */,
  589.   Prim_eq                              /*  2 EQ?                                          Primitive  0x6f in prim.c */,
  590.   Prim_equal_fixnum                    /*  2 EQUAL-FIXNUM?                                Primitive  0x70 in fixnum.c */,
  591.   Prim_error_procedure                 /*  3 ERROR-PROCEDURE                              Primitive  0x71 in hooks.c */,
  592.   Prim_execute_at_new_point            /*  4 EXECUTE-AT-NEW-STATE-POINT                   Primitive  0x72 in hooks.c */,
  593.   Prim_non_restartable_exit            /*  0 EXIT                                         Primitive  0x73 in sysprim.c */,
  594.   Prim_non_restartable_exit_with_value /*  1 EXIT-WITH-VALUE                              Primitive  0x74 in sysprim.c */,
  595.   Prim_file_access                     /*  2 FILE-ACCESS                                  Primitive  0x75 in prosfs.c */,
  596.   Prim_file_attributes                 /*  1 FILE-ATTRIBUTES                              Primitive  0x76 in prdosfs.c */,
  597.   Prim_file_attributes_indirect        /*  1 FILE-ATTRIBUTES-INDIRECT                     Primitive  0x77 in prdosfs.c */,
  598.   Prim_file_copy                       /*  2 FILE-COPY                                    Primitive  0x78 in prosfs.c */,
  599.   Prim_file_directory_p                /*  1 FILE-DIRECTORY?                              Primitive  0x79 in prosfs.c */,
  600.   Prim_file_eq_p                       /*  2 FILE-EQ?                                     Primitive  0x7a in prdosfs.c */,
  601.   Prim_file_exists_p                   /*  1 FILE-EXISTS?                                 Primitive  0x7b in prosfs.c */,
  602.   Prim_file_length                     /*  1 FILE-LENGTH-NEW                              Primitive  0x7c in prosfile.c */,
  603.   Prim_file_link_hard                  /*  2 FILE-LINK-HARD                               Primitive  0x7d in prosfs.c */,
  604.   Prim_file_link_soft                  /*  2 FILE-LINK-SOFT                               Primitive  0x7e in prosfs.c */,
  605.   Prim_file_mod_time                   /*  1 FILE-MOD-TIME                                Primitive  0x7f in prdosfs.c */,
  606.   Prim_file_mod_time_indirect          /*  1 FILE-MOD-TIME-INDIRECT                       Primitive  0x80 in prdosfs.c */,
  607.   Prim_file_modes                      /*  1 FILE-MODES                                   Primitive  0x81 in prdosfs.c */,
  608.   Prim_file_open_append_channel        /*  1 FILE-OPEN-APPEND-CHANNEL                     Primitive  0x82 in prosfile.c */,
  609.   Prim_file_open_binary_input_channel  /*  1 FILE-OPEN-BINARY-INPUT-CHANNEL               Primitive  0x83 in prosfile.c */,
  610.   Prim_file_open_binary_output_channel /*  1 FILE-OPEN-BINARY-OUTPUT-CHANNEL              Primitive  0x84 in prosfile.c */,
  611.   Prim_file_open_channel               /*  2 FILE-OPEN-CHANNEL                            Primitive  0x85 in prosfile.c */,
  612.   Prim_file_open_input_channel         /*  1 FILE-OPEN-INPUT-CHANNEL                      Primitive  0x86 in prosfile.c */,
  613.   Prim_file_open_io_channel            /*  1 FILE-OPEN-IO-CHANNEL                         Primitive  0x87 in prosfile.c */,
  614.   Prim_file_open_output_channel        /*  1 FILE-OPEN-OUTPUT-CHANNEL                     Primitive  0x88 in prosfile.c */,
  615.   Prim_file_position                   /*  1 FILE-POSITION                                Primitive  0x89 in prosfile.c */,
  616.   Prim_file_remove                     /*  1 FILE-REMOVE                                  Primitive  0x8a in prosfs.c */,
  617.   Prim_file_remove_link                /*  1 FILE-REMOVE-LINK                             Primitive  0x8b in prosfs.c */,
  618.   Prim_file_rename                     /*  2 FILE-RENAME                                  Primitive  0x8c in prosfs.c */,
  619.   Prim_file_set_position               /*  2 FILE-SET-POSITION                            Primitive  0x8d in prosfile.c */,
  620.   Prim_file_soft_link_p                /*  1 FILE-SOFT-LINK?                              Primitive  0x8e in prosfs.c */,
  621.   Prim_file_time_to_string             /*  1 FILE-TIME->STRING                            Primitive  0x8f in prdosenv.c */,
  622.   Prim_file_touch                      /*  1 FILE-TOUCH                                   Primitive  0x90 in prdosfs.c */,
  623.   Prim_find_symbol                     /*  1 FIND-SYMBOL                                  Primitive  0x91 in intern.c */,
  624.   Prim_fixnum_to_bignum                /*  1 FIXNUM->BIGNUM                               Primitive  0x92 in bigprm.c */,
  625.   Prim_fixnum_and                      /*  2 FIXNUM-AND                                   Primitive  0x93 in fixnum.c */,
  626.   Prim_fixnum_andc                     /*  2 FIXNUM-ANDC                                  Primitive  0x94 in fixnum.c */,
  627.   Prim_fixnum_lsh                      /*  2 FIXNUM-LSH                                   Primitive  0x95 in fixnum.c */,
  628.   Prim_fixnum_negate                   /*  1 FIXNUM-NEGATE                                Primitive  0x96 in fixnum.c */,
  629.   Prim_fixnum_not                      /*  1 FIXNUM-NOT                                   Primitive  0x97 in fixnum.c */,
  630.   Prim_fixnum_or                       /*  2 FIXNUM-OR                                    Primitive  0x98 in fixnum.c */,
  631.   Prim_fixnum_quotient                 /*  2 FIXNUM-QUOTIENT                              Primitive  0x99 in fixnum.c */,
  632.   Prim_fixnum_remainder                /*  2 FIXNUM-REMAINDER                             Primitive  0x9a in fixnum.c */,
  633.   Prim_fixnum_xor                      /*  2 FIXNUM-XOR                                   Primitive  0x9b in fixnum.c */,
  634.   Prim_floating_vector_cons            /*  1 FLOATING-VECTOR-CONS                         Primitive  0x9c in dfloat.c */,
  635.   Prim_floating_vector_length          /*  1 FLOATING-VECTOR-LENGTH                       Primitive  0x9d in dfloat.c */,
  636.   Prim_floating_vector_ref             /*  2 FLOATING-VECTOR-REF                          Primitive  0x9e in dfloat.c */,
  637.   Prim_floating_vector_set             /*  3 FLOATING-VECTOR-SET!                         Primitive  0x9f in dfloat.c */,
  638.   Prim_flonum_to_bignum                /*  1 FLONUM->BIGNUM                               Primitive  0xa0 in bigprm.c */,
  639.   Prim_flonum_abs                      /*  1 FLONUM-ABS                                   Primitive  0xa1 in flonum.c */,
  640.   Prim_flonum_acos                     /*  1 FLONUM-ACOS                                  Primitive  0xa2 in flonum.c */,
  641.   Prim_flonum_add                      /*  2 FLONUM-ADD                                   Primitive  0xa3 in flonum.c */,
  642.   Prim_flonum_asin                     /*  1 FLONUM-ASIN                                  Primitive  0xa4 in flonum.c */,
  643.   Prim_flonum_atan                     /*  1 FLONUM-ATAN                                  Primitive  0xa5 in flonum.c */,
  644.   Prim_flonum_atan2                    /*  2 FLONUM-ATAN2                                 Primitive  0xa6 in flonum.c */,
  645.   Prim_flonum_ceiling                  /*  1 FLONUM-CEILING                               Primitive  0xa7 in flonum.c */,
  646.   Prim_flonum_ceiling_to_exact         /*  1 FLONUM-CEILING->EXACT                        Primitive  0xa8 in flonum.c */,
  647.   Prim_flonum_cos                      /*  1 FLONUM-COS                                   Primitive  0xa9 in flonum.c */,
  648.   Prim_flonum_denormalize              /*  2 FLONUM-DENORMALIZE                           Primitive  0xaa in flonum.c */,
  649.   Prim_flonum_divide                   /*  2 FLONUM-DIVIDE                                Primitive  0xab in flonum.c */,
  650.   Prim_flonum_equal_p                  /*  2 FLONUM-EQUAL?                                Primitive  0xac in flonum.c */,
  651.   Prim_flonum_exp                      /*  1 FLONUM-EXP                                   Primitive  0xad in flonum.c */,
  652.   Prim_flonum_expt                     /*  2 FLONUM-EXPT                                  Primitive  0xae in flonum.c */,
  653.   Prim_flonum_floor                    /*  1 FLONUM-FLOOR                                 Primitive  0xaf in flonum.c */,
  654.   Prim_flonum_floor_to_exact           /*  1 FLONUM-FLOOR->EXACT                          Primitive  0xb0 in flonum.c */,
  655.   Prim_flonum_greater_p                /*  2 FLONUM-GREATER?                              Primitive  0xb1 in flonum.c */,
  656.   Prim_flonum_integer_p                /*  1 FLONUM-INTEGER?                              Primitive  0xb2 in flonum.c */,
  657.   Prim_flonum_less_p                   /*  2 FLONUM-LESS?                                 Primitive  0xb3 in flonum.c */,
  658.   Prim_flonum_log                      /*  1 FLONUM-LOG                                   Primitive  0xb4 in flonum.c */,
  659.   Prim_flonum_multiply                 /*  2 FLONUM-MULTIPLY                              Primitive  0xb5 in flonum.c */,
  660.   Prim_flonum_negate                   /*  1 FLONUM-NEGATE                                Primitive  0xb6 in flonum.c */,
  661.   Prim_flonum_negative_p               /*  1 FLONUM-NEGATIVE?                             Primitive  0xb7 in flonum.c */,
  662.   Prim_flonum_normalize                /*  1 FLONUM-NORMALIZE                             Primitive  0xb8 in flonum.c */,
  663.   Prim_flonum_positive_p               /*  1 FLONUM-POSITIVE?                             Primitive  0xb9 in flonum.c */,
  664.   Prim_flonum_round                    /*  1 FLONUM-ROUND                                 Primitive  0xba in flonum.c */,
  665.   Prim_flonum_round_to_exact           /*  1 FLONUM-ROUND->EXACT                          Primitive  0xbb in flonum.c */,
  666.   Prim_flonum_sin                      /*  1 FLONUM-SIN                                   Primitive  0xbc in flonum.c */,
  667.   Prim_flonum_sqrt                     /*  1 FLONUM-SQRT                                  Primitive  0xbd in flonum.c */,
  668.   Prim_flonum_subtract                 /*  2 FLONUM-SUBTRACT                              Primitive  0xbe in flonum.c */,
  669.   Prim_flonum_tan                      /*  1 FLONUM-TAN                                   Primitive  0xbf in flonum.c */,
  670.   Prim_flonum_truncate                 /*  1 FLONUM-TRUNCATE                              Primitive  0xc0 in flonum.c */,
  671.   Prim_flonum_truncate_to_exact        /*  1 FLONUM-TRUNCATE->EXACT                       Primitive  0xc1 in flonum.c */,
  672.   Prim_flonum_zero_p                   /*  1 FLONUM-ZERO?                                 Primitive  0xc2 in flonum.c */,
  673.   Prim_flonum_p                        /*  1 FLONUM?                                      Primitive  0xc3 in flonum.c */,
  674.   Prim_force                           /*  1 FORCE                                        Primitive  0xc4 in hooks.c */,
  675.   Prim_full_hostname                   /*  0 FULL-HOSTNAME                                Primitive  0xc5 in prdosenv.c */,
  676.   Prim_garbage_collect                 /*  1 GARBAGE-COLLECT                              Primitive  0xc6 in bchmmg.c */,
  677.   Prim_gc_space_status                 /*  0 GC-SPACE-STATUS                              Primitive  0xc7 in sysprim.c */,
  678.   Prim_gcd_fixnum                      /*  2 GCD-FIXNUM                                   Primitive  0xc8 in fixnum.c */,
  679.   Prim_general_car_cdr                 /*  2 GENERAL-CAR-CDR                              Primitive  0xc9 in list.c */,
  680.   Prim_get_command_line                /*  0 GET-COMMAND-LINE                             Primitive  0xca in boot.c */,
  681.   Prim_get_decoded_time                /*  1 GET-DECODED-TIME                             Primitive  0xcb in prosenv.c */,
  682.   Prim_get_environment_variable        /*  1 GET-ENVIRONMENT-VARIABLE                     Primitive  0xcc in prosenv.c */,
  683.   Prim_get_fixed_objects_vector        /*  0 GET-FIXED-OBJECTS-VECTOR                     Primitive  0xcd in hooks.c */,
  684.   Prim_get_fluid_bindings              /*  0 GET-FLUID-BINDINGS                           Primitive  0xce in hooks.c */,
  685.   Prim_get_interrupt_enables           /*  0 GET-INTERRUPT-ENABLES                        Primitive  0xcf in hooks.c */,
  686.   Prim_get_next_constant               /*  0 GET-NEXT-CONSTANT                            Primitive  0xd0 in purutl.c */,
  687.   Prim_get_primitive_address           /*  2 GET-PRIMITIVE-ADDRESS                        Primitive  0xd1 in extern.c */,
  688.   Prim_get_primitive_counts            /*  0 GET-PRIMITIVE-COUNTS                         Primitive  0xd2 in extern.c */,
  689.   Prim_get_primitive_name              /*  1 GET-PRIMITIVE-NAME                           Primitive  0xd3 in extern.c */,
  690.   Prim_get_unused_command_line         /*  0 GET-UNUSED-COMMAND-LINE                      Primitive  0xd4 in boot.c */,
  691.   Prim_get_user_home_directory         /*  1 GET-USER-HOME-DIRECTORY                      Primitive  0xd5 in prdosenv.c */,
  692.   Prim_gid_to_string                   /*  1 GID->STRING                                  Primitive  0xd6 in prdosenv.c */,
  693.   Prim_greater_fixnum                  /*  2 GREATER-THAN-FIXNUM?                         Primitive  0xd7 in fixnum.c */,
  694.   Prim_restartable_exit                /*  0 HALT                                         Primitive  0xd8 in sysprim.c */,
  695.   Prim_have_ptys_p                     /*  0 HAVE-PTYS?                                   Primitive  0xd9 in prosterm.c */,
  696.   Prim_hostname                        /*  0 HOSTNAME                                     Primitive  0xda in prdosenv.c */,
  697.   Prim_hunk3_cons                      /*  3 HUNK3-CONS                                   Primitive  0xdb in hunk.c */,
  698.   Prim_hunk3_cxr                       /*  2 HUNK3-CXR                                    Primitive  0xdc in hunk.c */,
  699.   Prim_hunk3_set_cxr                   /*  3 HUNK3-SET-CXR!                               Primitive  0xdd in hunk.c */,
  700.   Prim_integer_to_char                 /*  1 INTEGER->CHAR                                Primitive  0xde in char.c */,
  701.   Prim_integer_to_flonum               /*  2 INTEGER->FLONUM                              Primitive  0xdf in intprm.c */,
  702.   Prim_integer_add                     /*  2 INTEGER-ADD                                  Primitive  0xe0 in intprm.c */,
  703.   Prim_integer_add_1                   /*  1 INTEGER-ADD-1                                Primitive  0xe1 in intprm.c */,
  704.   Prim_integer_divide                  /*  2 INTEGER-DIVIDE                               Primitive  0xe2 in intprm.c */,
  705.   Prim_integer_equal_p                 /*  2 INTEGER-EQUAL?                               Primitive  0xe3 in intprm.c */,
  706.   Prim_integer_greater_p               /*  2 INTEGER-GREATER?                             Primitive  0xe4 in intprm.c */,
  707.   Prim_integer_less_p                  /*  2 INTEGER-LESS?                                Primitive  0xe5 in intprm.c */,
  708.   Prim_integer_multiply                /*  2 INTEGER-MULTIPLY                             Primitive  0xe6 in intprm.c */,
  709.   Prim_integer_negate                  /*  1 INTEGER-NEGATE                               Primitive  0xe7 in intprm.c */,
  710.   Prim_integer_negative_p              /*  1 INTEGER-NEGATIVE?                            Primitive  0xe8 in intprm.c */,
  711.   Prim_integer_positive_p              /*  1 INTEGER-POSITIVE?                            Primitive  0xe9 in intprm.c */,
  712.   Prim_integer_quotient                /*  2 INTEGER-QUOTIENT                             Primitive  0xea in intprm.c */,
  713.   Prim_integer_remainder               /*  2 INTEGER-REMAINDER                            Primitive  0xeb in intprm.c */,
  714.   Prim_integer_subtract                /*  2 INTEGER-SUBTRACT                             Primitive  0xec in intprm.c */,
  715.   Prim_integer_subtract_1              /*  1 INTEGER-SUBTRACT-1                           Primitive  0xed in intprm.c */,
  716.   Prim_integer_zero_p                  /*  1 INTEGER-ZERO?                                Primitive  0xee in intprm.c */,
  717.   Prim_integer_p                       /*  1 INTEGER?                                     Primitive  0xef in intprm.c */,
  718.   Prim_keyboard_get_conversion         /*  1 KEYBOARD-GET-CONVERSION                      Primitive  0xf0 in dosconio.c */,
  719.   Prim_keyboard_set_conversion         /*  2 KEYBOARD-SET-CONVERSION!                     Primitive  0xf1 in dosconio.c */,
  720.   Prim_length                          /*  1 LENGTH                                       Primitive  0xf2 in list.c */,
  721.   Prim_less_fixnum                     /*  2 LESS-THAN-FIXNUM?                            Primitive  0xf3 in fixnum.c */,
  722.   Prim_lexical_assignment              /*  3 LEXICAL-ASSIGNMENT                           Primitive  0xf4 in lookprm.c */,
  723.   Prim_lexical_reference               /*  2 LEXICAL-REFERENCE                            Primitive  0xf5 in lookprm.c */,
  724.   Prim_unassigned_test                 /*  2 LEXICAL-UNASSIGNED?                          Primitive  0xf6 in lookprm.c */,
  725.   Prim_unbound_test                    /*  2 LEXICAL-UNBOUND?                             Primitive  0xf7 in lookprm.c */,
  726.   Prim_unreferenceable_test            /*  2 LEXICAL-UNREFERENCEABLE?                     Primitive  0xf8 in lookprm.c */,
  727.   Prim_link_file                       /*  3 LINK-FILE                                    Primitive  0xf9 in prosfs.c */,
  728.   Prim_list_to_vector                  /*  1 LIST->VECTOR                                 Primitive  0xfa in vector.c */,
  729.   Prim_listify_bignum                  /*  2 LISTIFY-BIGNUM                               Primitive  0xfb in bigprm.c */,
  730.   Prim_band_load                       /*  1 LOAD-BAND                                    Primitive  0xfc in fasload.c */,
  731.   Prim_local_assignment                /*  3 LOCAL-ASSIGNMENT                             Primitive  0xfd in lookprm.c */,
  732.   Prim_local_reference                 /*  2 LOCAL-REFERENCE                              Primitive  0xfe in lookprm.c */,
  733.   Prim_make_bit_string                 /*  2 MAKE-BIT-STRING                              Primitive  0xff in bitstr.c */,
  734.   Prim_make_cell                       /*  1 MAKE-CELL                                    Primitive 0x100 in prim.c */,
  735.   Prim_make_char                       /*  2 MAKE-CHAR                                    Primitive 0x101 in char.c */,
  736.   Prim_make_non_pointer_object         /*  1 MAKE-NON-POINTER-OBJECT                      Primitive 0x102 in prim.c */,
  737.   Prim_make_pipe                       /*  0 MAKE-PIPE                                    Primitive 0x103 in prosio.c */,
  738.   Prim_make_state_space                /*  1 MAKE-STATE-SPACE                             Primitive 0x104 in hooks.c */,
  739.   Prim_map_code_to_address             /*  2 MAP-CODE-TO-MACHINE-ADDRESS                  Primitive 0x105 in extern.c */,
  740.   Prim_map_address_to_code             /*  2 MAP-MACHINE-ADDRESS-TO-CODE                  Primitive 0x106 in extern.c */,
  741.   Prim_memq                            /*  2 MEMQ                                         Primitive 0x107 in list.c */,
  742.   Prim_microcode_identify              /*  0 MICROCODE-IDENTIFY                           Primitive 0x108 in boot.c */,
  743.   Prim_microcode_library_path          /*  0 MICROCODE-LIBRARY-PATH                       Primitive 0x109 in boot.c */,
  744.   Prim_microcode_tables_filename       /*  0 MICROCODE-TABLES-FILENAME                    Primitive 0x10a in boot.c */,
  745.   Prim_minus_fixnum                    /*  2 MINUS-FIXNUM                                 Primitive 0x10b in fixnum.c */,
  746.   Prim_m_1_plus_fixnum                 /*  1 MINUS-ONE-PLUS-FIXNUM                        Primitive 0x10c in fixnum.c */,
  747.   Prim_modulo                          /*  2 MODULO                                       Primitive 0x10d in generic.c */,
  748.   Prim_multiply_fixnum                 /*  2 MULTIPLY-FIXNUM                              Primitive 0x10e in fixnum.c */,
  749.   Prim_negative_fixnum                 /*  1 NEGATIVE-FIXNUM?                             Primitive 0x10f in fixnum.c */,
  750.   Prim_negative                        /*  1 NEGATIVE?                                    Primitive 0x110 in generic.c */,
  751.   Prim_new_directory_close             /*  1 NEW-DIRECTORY-CLOSE                          Primitive 0x111 in prosfs.c */,
  752.   Prim_new_directory_open              /*  1 NEW-DIRECTORY-OPEN                           Primitive 0x112 in prosfs.c */,
  753.   Prim_new_directory_read              /*  1 NEW-DIRECTORY-READ                           Primitive 0x113 in prosfs.c */,
  754.   Prim_new_directory_read_match        /*  2 NEW-DIRECTORY-READ-MATCHING                  Primitive 0x114 in prosfs.c */,
  755.   Prim_non_reentrant_catch             /*  1 NON-REENTRANT-CALL-WITH-CURRENT-CONTINUATION Primitive 0x115 in hooks.c */,
  756.   Prim_not                             /*  1 NOT                                          Primitive 0x116 in prim.c */,
  757.   Prim_object_datum                    /*  1 OBJECT-DATUM                                 Primitive 0x117 in prim.c */,
  758.   Prim_object_gc_type                  /*  1 OBJECT-GC-TYPE                               Primitive 0x118 in prim.c */,
  759.   Prim_object_set_type                 /*  2 OBJECT-SET-TYPE                              Primitive 0x119 in prim.c */,
  760.   Prim_object_type                     /*  1 OBJECT-TYPE                                  Primitive 0x11a in prim.c */,
  761.   Prim_object_type_p                   /*  2 OBJECT-TYPE?                                 Primitive 0x11b in prim.c */,
  762.   Prim_one_plus_fixnum                 /*  1 ONE-PLUS-FIXNUM                              Primitive 0x11c in fixnum.c */,
  763.   Prim_os_job_control_p                /*  0 OS-JOB-CONTROL?                              Primitive 0x11d in prosterm.c */,
  764.   Prim_pair                            /*  1 PAIR?                                        Primitive 0x11e in list.c */,
  765.   Prim_plus_fixnum                     /*  2 PLUS-FIXNUM                                  Primitive 0x11f in fixnum.c */,
  766.   Prim_positive_fixnum                 /*  1 POSITIVE-FIXNUM?                             Primitive 0x120 in fixnum.c */,
  767.   Prim_positive                        /*  1 POSITIVE?                                    Primitive 0x121 in generic.c */,
  768.   Prim_apply_step                      /*  3 PRIMITIVE-APPLY-STEP                         Primitive 0x122 in step.c */,
  769.   Prim_eval_step                       /*  3 PRIMITIVE-EVAL-STEP                          Primitive 0x123 in step.c */,
  770.   Prim_prim_fasdump                    /*  3 PRIMITIVE-FASDUMP                            Primitive 0x124 in bchdmp.c */,
  771.   Prim_impurify                        /*  1 PRIMITIVE-IMPURIFY                           Primitive 0x125 in purutl.c */,
  772.   Prim_prim_obj_datum                  /*  1 PRIMITIVE-OBJECT-DATUM                       Primitive 0x126 in prim.c */,
  773.   Prim_prim_obj_eq_p                   /*  2 PRIMITIVE-OBJECT-EQ?                         Primitive 0x127 in prim.c */,
  774.   Prim_prim_obj_gc_type                /*  1 PRIMITIVE-OBJECT-GC-TYPE                     Primitive 0x128 in prim.c */,
  775.   Prim_prim_obj_ref                    /*  2 PRIMITIVE-OBJECT-REF                         Primitive 0x129 in prim.c */,
  776.   Prim_prim_obj_set                    /*  3 PRIMITIVE-OBJECT-SET!                        Primitive 0x12a in prim.c */,
  777.   Prim_prim_obj_set_type               /*  2 PRIMITIVE-OBJECT-SET-TYPE                    Primitive 0x12b in prim.c */,
  778.   Prim_prim_obj_type                   /*  1 PRIMITIVE-OBJECT-TYPE                        Primitive 0x12c in prim.c */,
  779.   Prim_prim_obj_type_p                 /*  2 PRIMITIVE-OBJECT-TYPE?                       Primitive 0x12d in prim.c */,
  780.   Prim_primitive_procedure_arity       /*  1 PRIMITIVE-PROCEDURE-ARITY                    Primitive 0x12e in extern.c */,
  781.   Prim_primitive_procedure_doc         /*  1 PRIMITIVE-PROCEDURE-DOCUMENTATION            Primitive 0x12f in extern.c */,
  782.   Prim_primitive_purify                /*  3 PRIMITIVE-PURIFY                             Primitive 0x130 in bchpur.c */,
  783.   Prim_return_step                     /*  2 PRIMITIVE-RETURN-STEP                        Primitive 0x131 in step.c */,
  784.   Prim_process_timer_clear             /*  0 PROCESS-TIMER-CLEAR                          Primitive 0x132 in prosenv.c */,
  785.   Prim_process_timer_set               /*  2 PROCESS-TIMER-SET                            Primitive 0x133 in prosenv.c */,
  786.   Prim_pure_p                          /*  1 PURE?                                        Primitive 0x134 in purutl.c */,
  787.   Prim_quoted_char_p                   /*  4 QUOTED-CHAR?                                 Primitive 0x135 in syntax.c */,
  788.   Prim_quotient                        /*  2 QUOTIENT                                     Primitive 0x136 in generic.c */,
  789.   Prim_re_char_set_adjoin              /*  2 RE-CHAR-SET-ADJOIN!                          Primitive 0x137 in rgxprim.c */,
  790.   Prim_re_compile_fastmap              /*  4 RE-COMPILE-FASTMAP                           Primitive 0x138 in rgxprim.c */,
  791.   Prim_re_match_buffer                 /*  7 RE-MATCH-BUFFER                              Primitive 0x139 in rgxprim.c */,
  792.   Prim_re_match_substring              /*  7 RE-MATCH-SUBSTRING                           Primitive 0x13a in rgxprim.c */,
  793.   Prim_re_search_buffer_backward       /*  7 RE-SEARCH-BUFFER-BACKWARD                    Primitive 0x13b in rgxprim.c */,
  794.   Prim_re_search_buffer_forward        /*  7 RE-SEARCH-BUFFER-FORWARD                     Primitive 0x13c in rgxprim.c */,
  795.   Prim_re_search_substr_backward       /*  7 RE-SEARCH-SUBSTRING-BACKWARD                 Primitive 0x13d in rgxprim.c */,
  796.   Prim_re_search_substr_forward        /*  7 RE-SEARCH-SUBSTRING-FORWARD                  Primitive 0x13e in rgxprim.c */,
  797.   Prim_read_bits_x                     /*  3 READ-BITS!                                   Primitive 0x13f in bitstr.c */,
  798.   Prim_real_time_clock                 /*  0 REAL-TIME-CLOCK                              Primitive 0x140 in prosenv.c */,
  799.   Prim_real_timer_clear                /*  0 REAL-TIMER-CLEAR                             Primitive 0x141 in prosenv.c */,
  800.   Prim_real_timer_set                  /*  2 REAL-TIMER-SET                               Primitive 0x142 in prosenv.c */,
  801.   Prim_rehash                          /*  2 REHASH                                       Primitive 0x143 in daemon.c */,
  802.   Prim_reload_band_name                /*  0 RELOAD-BAND-NAME                             Primitive 0x144 in fasload.c */,
  803.   Prim_reload_retrieve_string          /*  0 RELOAD-RETRIEVE-STRING                       Primitive 0x145 in boot.c */,
  804.   Prim_reload_save_string              /*  1 RELOAD-SAVE-STRING                           Primitive 0x146 in boot.c */,
  805.   Prim_remainder                       /*  2 REMAINDER                                    Primitive 0x147 in generic.c */,
  806.   Prim_return_to_application           /* -1 RETURN-TO-APPLICATION                        Primitive 0x148 in hooks.c */,
  807.   Prim_scan_backward_prefix_chars      /*  4 SCAN-BACKWARD-PREFIX-CHARS                   Primitive 0x149 in syntax.c */,
  808.   Prim_scan_forward_prefix_chars       /*  4 SCAN-FORWARD-PREFIX-CHARS                    Primitive 0x14a in syntax.c */,
  809.   Prim_scan_forward_to_word            /*  4 SCAN-FORWARD-TO-WORD                         Primitive 0x14b in syntax.c */,
  810.   Prim_scan_list_backward              /*  7 SCAN-LIST-BACKWARD                           Primitive 0x14c in syntax.c */,
  811.   Prim_scan_list_forward               /*  7 SCAN-LIST-FORWARD                            Primitive 0x14d in syntax.c */,
  812.   Prim_scan_sexps_forward              /*  7 SCAN-SEXPS-FORWARD                           Primitive 0x14e in syntax.c */,
  813.   Prim_scan_word_backward              /*  4 SCAN-WORD-BACKWARD                           Primitive 0x14f in syntax.c */,
  814.   Prim_scan_word_forward               /*  4 SCAN-WORD-FORWARD                            Primitive 0x150 in syntax.c */,
  815.   Prim_scode_eval                      /*  2 SCODE-EVAL                                   Primitive 0x151 in hooks.c */,
  816.   Prim_set_car                         /*  2 SET-CAR!                                     Primitive 0x152 in list.c */,
  817.   Prim_set_cdr                         /*  2 SET-CDR!                                     Primitive 0x153 in list.c */,
  818.   Prim_set_cell_contents               /*  2 SET-CELL-CONTENTS!                           Primitive 0x154 in prim.c */,
  819.   Prim_set_dynamic_state               /*  1 SET-CURRENT-DYNAMIC-STATE!                   Primitive 0x155 in hooks.c */,
  820.   Prim_set_current_history             /*  1 SET-CURRENT-HISTORY!                         Primitive 0x156 in hooks.c */,
  821.   Prim_set_file_modes                  /*  2 SET-FILE-MODES!                              Primitive 0x157 in prdosfs.c */,
  822.   Prim_set_file_times                  /*  3 SET-FILE-TIMES!                              Primitive 0x158 in prdosfs.c */,
  823.   Prim_set_fixed_objects_vector        /*  1 SET-FIXED-OBJECTS-VECTOR!                    Primitive 0x159 in hooks.c */,
  824.   Prim_set_fluid_bindings              /*  1 SET-FLUID-BINDINGS!                          Primitive 0x15a in hooks.c */,
  825.   Prim_set_interrupt_enables           /*  1 SET-INTERRUPT-ENABLES!                       Primitive 0x15b in hooks.c */,
  826.   Prim_set_run_light                   /*  1 SET-RUN-LIGHT!                               Primitive 0x15c in sysprim.c */,
  827.   Prim_set_string_length               /*  2 SET-STRING-LENGTH!                           Primitive 0x15d in string.c */,
  828.   Prim_set_string_maximum_length       /*  2 SET-STRING-MAXIMUM-LENGTH!                   Primitive 0x15e in string.c */,
  829.   Prim_set_trap_state                  /*  1 SET-TRAP-STATE!                              Primitive 0x15f in sysprim.c */,
  830.   Prim_set_working_dir_pathname        /*  1 SET-WORKING-DIRECTORY-PATHNAME!              Primitive 0x160 in prosenv.c */,
  831.   Prim_setup_timer_interrupt           /*  2 SETUP-TIMER-INTERRUPT                        Primitive 0x161 in prosenv.c */,
  832.   Prim_stack_address_offset            /*  1 STACK-ADDRESS-OFFSET                         Primitive 0x162 in comutl.c */,
  833.   Prim_stack_top_address               /*  0 STACK-TOP-ADDRESS                            Primitive 0x163 in comutl.c */,
  834.   Prim_string_to_symbol                /*  1 STRING->SYMBOL                               Primitive 0x164 in intern.c */,
  835.   Prim_string_to_syntax_entry          /*  1 STRING->SYNTAX-ENTRY                         Primitive 0x165 in syntax.c */,
  836.   Prim_string_allocate                 /*  1 STRING-ALLOCATE                              Primitive 0x166 in string.c */,
  837.   Prim_string_hash                     /*  1 STRING-HASH                                  Primitive 0x167 in intern.c */,
  838.   Prim_string_hash_mod                 /*  2 STRING-HASH-MOD                              Primitive 0x168 in intern.c */,
  839.   Prim_string_length                   /*  1 STRING-LENGTH                                Primitive 0x169 in string.c */,
  840.   Prim_string_maximum_length           /*  1 STRING-MAXIMUM-LENGTH                        Primitive 0x16a in string.c */,
  841.   Prim_string_ref                      /*  2 STRING-REF                                   Primitive 0x16b in string.c */,
  842.   Prim_string_set                      /*  3 STRING-SET!                                  Primitive 0x16c in string.c */,
  843.   Prim_string_p                        /*  1 STRING?                                      Primitive 0x16d in string.c */,
  844.   Prim_substring_ci_equal              /*  6 SUBSTRING-CI=?                               Primitive 0x16e in string.c */,
  845.   Prim_substring_downcase              /*  3 SUBSTRING-DOWNCASE!                          Primitive 0x16f in string.c */,
  846.   Prim_find_next_char_in_set           /*  4 SUBSTRING-FIND-NEXT-CHAR-IN-SET              Primitive 0x170 in string.c */,
  847.   Prim_find_prev_char_in_set           /*  4 SUBSTRING-FIND-PREVIOUS-CHAR-IN-SET          Primitive 0x171 in string.c */,
  848.   Prim_match_backward                  /*  6 SUBSTRING-MATCH-BACKWARD                     Primitive 0x172 in string.c */,
  849.   Prim_match_backward_ci               /*  6 SUBSTRING-MATCH-BACKWARD-CI                  Primitive 0x173 in string.c */,
  850.   Prim_match_forward                   /*  6 SUBSTRING-MATCH-FORWARD                      Primitive 0x174 in string.c */,
  851.   Prim_match_forward_ci                /*  6 SUBSTRING-MATCH-FORWARD-CI                   Primitive 0x175 in string.c */,
  852.   Prim_substring_move_left             /*  5 SUBSTRING-MOVE-LEFT!                         Primitive 0x176 in string.c */,
  853.   Prim_substring_move_right            /*  5 SUBSTRING-MOVE-RIGHT!                        Primitive 0x177 in string.c */,
  854.   Prim_substring_upcase                /*  3 SUBSTRING-UPCASE!                            Primitive 0x178 in string.c */,
  855.   Prim_substring_less                  /*  6 SUBSTRING<?                                  Primitive 0x179 in string.c */,
  856.   Prim_substring_equal                 /*  6 SUBSTRING=?                                  Primitive 0x17a in string.c */,
  857.   Prim_subvector_to_list               /*  3 SUBVECTOR->LIST                              Primitive 0x17b in vector.c */,
  858.   Prim_vector_fill                     /*  4 SUBVECTOR-FILL!                              Primitive 0x17c in vector.c */,
  859.   Prim_subvector_move_left             /*  5 SUBVECTOR-MOVE-LEFT!                         Primitive 0x17d in vector.c */,
  860.   Prim_subvector_move_right            /*  5 SUBVECTOR-MOVE-RIGHT!                        Primitive 0x17e in vector.c */,
  861.   Prim_system                          /*  1 SYSTEM                                       Primitive 0x17f in prdosenv.c */,
  862.   Prim_system_call_error_message       /*  1 SYSTEM-CALL-ERROR-MESSAGE                    Primitive 0x180 in prosenv.c */,
  863.   Prim_system_clock                    /*  0 SYSTEM-CLOCK                                 Primitive 0x181 in prosenv.c */,
  864.   Prim_sys_h3_0                        /*  1 SYSTEM-HUNK3-CXR0                            Primitive 0x182 in hunk.c */,
  865.   Prim_sys_h3_1                        /*  1 SYSTEM-HUNK3-CXR1                            Primitive 0x183 in hunk.c */,
  866.   Prim_sys_h3_2                        /*  1 SYSTEM-HUNK3-CXR2                            Primitive 0x184 in hunk.c */,
  867.   Prim_sh3_set_0                       /*  2 SYSTEM-HUNK3-SET-CXR0!                       Primitive 0x185 in hunk.c */,
  868.   Prim_sh3_set_1                       /*  2 SYSTEM-HUNK3-SET-CXR1!                       Primitive 0x186 in hunk.c */,
  869.   Prim_sh3_set_2                       /*  2 SYSTEM-HUNK3-SET-CXR2!                       Primitive 0x187 in hunk.c */,
  870.   Prim_sys_list_to_vector              /*  2 SYSTEM-LIST-TO-VECTOR                        Primitive 0x188 in vector.c */,
  871.   Prim_sys_pair_car                    /*  1 SYSTEM-PAIR-CAR                              Primitive 0x189 in list.c */,
  872.   Prim_sys_pair_cdr                    /*  1 SYSTEM-PAIR-CDR                              Primitive 0x18a in list.c */,
  873.   Prim_sys_pair_cons                   /*  3 SYSTEM-PAIR-CONS                             Primitive 0x18b in list.c */,
  874.   Prim_sys_set_car                     /*  2 SYSTEM-PAIR-SET-CAR!                         Primitive 0x18c in list.c */,
  875.   Prim_sys_set_cdr                     /*  2 SYSTEM-PAIR-SET-CDR!                         Primitive 0x18d in list.c */,
  876.   Prim_sys_pair                        /*  1 SYSTEM-PAIR?                                 Primitive 0x18e in list.c */,
  877.   Prim_sys_subvector_to_list           /*  3 SYSTEM-SUBVECTOR-TO-LIST                     Primitive 0x18f in vector.c */,
  878.   Prim_sys_vector_ref                  /*  2 SYSTEM-VECTOR-REF                            Primitive 0x190 in vector.c */,
  879.   Prim_sys_vec_set                     /*  3 SYSTEM-VECTOR-SET!                           Primitive 0x191 in vector.c */,
  880.   Prim_sys_vec_size                    /*  1 SYSTEM-VECTOR-SIZE                           Primitive 0x192 in vector.c */,
  881.   Prim_sys_vector                      /*  1 SYSTEM-VECTOR?                               Primitive 0x193 in vector.c */,
  882.   Prim_termcap_goto_string             /*  5 TERMCAP-GOTO-STRING                          Primitive 0x194 in dostterm.c */,
  883.   Prim_termcap_pad_string              /*  4 TERMCAP-PAD-STRING                           Primitive 0x195 in dostterm.c */,
  884.   Prim_termcap_param_string            /*  5 TERMCAP-PARAM-STRING                         Primitive 0x196 in dostterm.c */,
  885.   Prim_terminal_buffered               /*  1 TERMINAL-BUFFERED                            Primitive 0x197 in prosterm.c */,
  886.   Prim_terminal_buffered_p             /*  1 TERMINAL-BUFFERED?                           Primitive 0x198 in prosterm.c */,
  887.   Prim_terminal_cooked_output          /*  1 TERMINAL-COOKED-OUTPUT                       Primitive 0x199 in prosterm.c */,
  888.   Prim_terminal_cooked_output_p        /*  1 TERMINAL-COOKED-OUTPUT?                      Primitive 0x19a in prosterm.c */,
  889.   Prim_terminal_drain_output           /*  1 TERMINAL-DRAIN-OUTPUT                        Primitive 0x19b in prosterm.c */,
  890.   Prim_terminal_flush_input            /*  1 TERMINAL-FLUSH-INPUT                         Primitive 0x19c in prosterm.c */,
  891.   Prim_terminal_flush_output           /*  1 TERMINAL-FLUSH-OUTPUT                        Primitive 0x19d in prosterm.c */,
  892.   Prim_terminal_get_ispeed             /*  1 TERMINAL-GET-ISPEED                          Primitive 0x19e in prosterm.c */,
  893.   Prim_terminal_get_ospeed             /*  1 TERMINAL-GET-OSPEED                          Primitive 0x19f in prosterm.c */,
  894.   Prim_terminal_get_state              /*  1 TERMINAL-GET-STATE                           Primitive 0x1a0 in prosterm.c */,
  895.   Prim_terminal_nonbuffered            /*  1 TERMINAL-NONBUFFERED                         Primitive 0x1a1 in prosterm.c */,
  896.   Prim_terminal_raw_output             /*  1 TERMINAL-RAW-OUTPUT                          Primitive 0x1a2 in prosterm.c */,
  897.   Prim_terminal_set_state              /*  2 TERMINAL-SET-STATE                           Primitive 0x1a3 in prosterm.c */,
  898.   Prim_translate_to_point              /*  1 TRANSLATE-TO-STATE-POINT                     Primitive 0x1a4 in hooks.c */,
  899.   Prim_tty_command_beep                /*  0 TTY-COMMAND-BEEP                             Primitive 0x1a5 in prostty.c */,
  900.   Prim_tty_command_clear               /*  0 TTY-COMMAND-CLEAR                            Primitive 0x1a6 in prostty.c */,
  901.   Prim_tty_get_interrupt_chars         /*  0 TTY-GET-INTERRUPT-CHARS                      Primitive 0x1a7 in prostty.c */,
  902.   Prim_tty_get_interrupt_enables       /*  0 TTY-GET-INTERRUPT-ENABLES                    Primitive 0x1a8 in prostty.c */,
  903.   Prim_tty_input_channel               /*  0 TTY-INPUT-CHANNEL                            Primitive 0x1a9 in prostty.c */,
  904.   Prim_tty_next_interrupt_char         /*  0 TTY-NEXT-INTERRUPT-CHAR                      Primitive 0x1aa in prostty.c */,
  905.   Prim_tty_output_channel              /*  0 TTY-OUTPUT-CHANNEL                           Primitive 0x1ab in prostty.c */,
  906.   Prim_tty_set_interrupt_chars         /*  1 TTY-SET-INTERRUPT-CHARS!                     Primitive 0x1ac in prostty.c */,
  907.   Prim_tty_set_interrupt_enables       /*  1 TTY-SET-INTERRUPT-ENABLES                    Primitive 0x1ad in prostty.c */,
  908.   Prim_tty_x_size                      /*  0 TTY-X-SIZE                                   Primitive 0x1ae in prostty.c */,
  909.   Prim_tty_y_size                      /*  0 TTY-Y-SIZE                                   Primitive 0x1af in prostty.c */,
  910.   Prim_uid_to_string                   /*  1 UID->STRING                                  Primitive 0x1b0 in prdosenv.c */,
  911.   Prim_under_emacs_p                   /*  0 UNDER-EMACS?                                 Primitive 0x1b1 in sysprim.c */,
  912.   Prim_unix_environment_alist          /*  0 UNIX-ENVIRONMENT                             Primitive 0x1b2 in prdosenv.c */,
  913.   Prim_unsigned_to_bit_string          /*  2 UNSIGNED-INTEGER->BIT-STRING                 Primitive 0x1b3 in bitstr.c */,
  914.   Prim_vector                          /* -1 VECTOR                                       Primitive 0x1b4 in vector.c */,
  915.   Prim_vec_8b_fill                     /*  4 VECTOR-8B-FILL!                              Primitive 0x1b5 in string.c */,
  916.   Prim_vec_8b_find_next_char           /*  4 VECTOR-8B-FIND-NEXT-CHAR                     Primitive 0x1b6 in string.c */,
  917.   Prim_vec_8b_find_next_char_ci        /*  4 VECTOR-8B-FIND-NEXT-CHAR-CI                  Primitive 0x1b7 in string.c */,
  918.   Prim_vec_8b_find_prev_char           /*  4 VECTOR-8B-FIND-PREVIOUS-CHAR                 Primitive 0x1b8 in string.c */,
  919.   Prim_vec_8b_find_prev_char_ci        /*  4 VECTOR-8B-FIND-PREVIOUS-CHAR-CI              Primitive 0x1b9 in string.c */,
  920.   Prim_vec_8b_ref                      /*  2 VECTOR-8B-REF                                Primitive 0x1ba in string.c */,
  921.   Prim_vec_8b_set                      /*  3 VECTOR-8B-SET!                               Primitive 0x1bb in string.c */,
  922.   Prim_vector_cons                     /*  2 VECTOR-CONS                                  Primitive 0x1bc in vector.c */,
  923.   Prim_vector_size                     /*  1 VECTOR-LENGTH                                Primitive 0x1bd in vector.c */,
  924.   Prim_vector_ref                      /*  2 VECTOR-REF                                   Primitive 0x1be in vector.c */,
  925.   Prim_vector_set                      /*  3 VECTOR-SET!                                  Primitive 0x1bf in vector.c */,
  926.   Prim_with_history_disabled           /*  1 WITH-HISTORY-DISABLED                        Primitive 0x1c0 in hooks.c */,
  927.   Prim_with_interrupt_mask             /*  2 WITH-INTERRUPT-MASK                          Primitive 0x1c1 in hooks.c */,
  928.   Prim_with_interrupts_reduced         /*  2 WITH-INTERRUPTS-REDUCED                      Primitive 0x1c2 in hooks.c */,
  929.   Prim_with_stack_marker               /*  3 WITH-STACK-MARKER                            Primitive 0x1c3 in hooks.c */,
  930.   Prim_within_control_point            /*  2 WITHIN-CONTROL-POINT                         Primitive 0x1c4 in hooks.c */,
  931.   Prim_working_dir_pathname            /*  0 WORKING-DIRECTORY-PATHNAME                   Primitive 0x1c5 in prosenv.c */,
  932.   Prim_write_bits_x                    /*  3 WRITE-BITS!                                  Primitive 0x1c6 in bitstr.c */,
  933.   Prim_zero_fixnum                     /*  1 ZERO-FIXNUM?                                 Primitive 0x1c7 in fixnum.c */,
  934.   Prim_zero                            /*  1 ZERO?                                        Primitive 0x1c8 in generic.c */,
  935.   Prim_inexistent                      /* -1 INEXISTENT-PRIMITIVE                         Primitive   ??? in Findprim.c */
  936. };
  937.  
  938. char * Primitive_Name_Table [] = {
  939.   "&*",
  940.   "&+",
  941.   "&-",
  942.   "&/",
  943.   "&<",
  944.   "&=",
  945.   "&>",
  946.   "-1+",
  947.   "1+",
  948.   "APPLY",
  949.   "ASCII->CHAR",
  950.   "ASSQ",
  951.   "BAUD-INDEX->RATE",
  952.   "BAUD-RATE->INDEX",
  953.   "BCHSCHEME-PARAMETERS-GET",
  954.   "BCHSCHEME-PARAMETERS-SET!",
  955.   "BCHSCHEME-STATISTICS-NAMES",
  956.   "BCHSCHEME-STATISTICS-READ!",
  957.   "BIGNUM->FIXNUM",
  958.   "BIGNUM->FLONUM",
  959.   "BIGNUM-ADD",
  960.   "BIGNUM-DIVIDE",
  961.   "BIGNUM-EQUAL?",
  962.   "BIGNUM-LESS?",
  963.   "BIGNUM-MULTIPLY",
  964.   "BIGNUM-NEGATIVE?",
  965.   "BIGNUM-POSITIVE?",
  966.   "BIGNUM-QUOTIENT",
  967.   "BIGNUM-REMAINDER",
  968.   "BIGNUM-SUBTRACT",
  969.   "BIGNUM-ZERO?",
  970.   "BINARY-FASLOAD",
  971.   "BIT-STRING->UNSIGNED-INTEGER",
  972.   "BIT-STRING-ALLOCATE",
  973.   "BIT-STRING-AND!",
  974.   "BIT-STRING-ANDC!",
  975.   "BIT-STRING-CLEAR!",
  976.   "BIT-STRING-FILL!",
  977.   "BIT-STRING-LENGTH",
  978.   "BIT-STRING-MOVE!",
  979.   "BIT-STRING-MOVEC!",
  980.   "BIT-STRING-OR!",
  981.   "BIT-STRING-REF",
  982.   "BIT-STRING-SET!",
  983.   "BIT-STRING-XOR!",
  984.   "BIT-STRING-ZERO?",
  985.   "BIT-STRING=?",
  986.   "BIT-STRING?",
  987.   "BIT-SUBSTRING-FIND-NEXT-SET-BIT",
  988.   "BIT-SUBSTRING-MOVE-RIGHT!",
  989.   "CALL-WITH-CURRENT-CONTINUATION",
  990.   "CAR",
  991.   "CDR",
  992.   "CELL-CONTENTS",
  993.   "CELL?",
  994.   "CHANNEL-BLOCKING",
  995.   "CHANNEL-BLOCKING?",
  996.   "CHANNEL-CLOSE",
  997.   "CHANNEL-NONBLOCKING",
  998.   "CHANNEL-READ",
  999.   "CHANNEL-REGISTER",
  1000.   "CHANNEL-REGISTERED?",
  1001.   "CHANNEL-SELECT-THEN-READ",
  1002.   "CHANNEL-TABLE",
  1003.   "CHANNEL-TYPE",
  1004.   "CHANNEL-UNREGISTER",
  1005.   "CHANNEL-WRITE",
  1006.   "CHAR->ASCII",
  1007.   "CHAR->INTEGER",
  1008.   "CHAR->SYNTAX-CODE",
  1009.   "CHAR-ASCII?",
  1010.   "CHAR-BITS",
  1011.   "CHAR-CODE",
  1012.   "CHAR-DOWNCASE",
  1013.   "CHAR-UPCASE",
  1014.   "CLEAR-INTERRUPTS!",
  1015.   "CLOSE-LOST-OPEN-FILES",
  1016.   "COERCE-TO-COMPILED-PROCEDURE",
  1017.   "COMPILED-CLOSURE->ENTRY",
  1018.   "COMPILED-CODE-ADDRESS->BLOCK",
  1019.   "COMPILED-CODE-ADDRESS->OFFSET",
  1020.   "COMPILED-ENTRY-KIND",
  1021.   "CONS",
  1022.   "CONSTANT?",
  1023.   "CONSUME-TYPEAHEAD",
  1024.   "CURRENT-DAY",
  1025.   "CURRENT-DYNAMIC-STATE",
  1026.   "CURRENT-FILE-TIME",
  1027.   "CURRENT-GID",
  1028.   "CURRENT-HOUR",
  1029.   "CURRENT-MINUTE",
  1030.   "CURRENT-MONTH",
  1031.   "CURRENT-SECOND",
  1032.   "CURRENT-UID",
  1033.   "CURRENT-USER-HOME-DIRECTORY",
  1034.   "CURRENT-USER-NAME",
  1035.   "CURRENT-YEAR",
  1036.   "DEBUGGING-PRINTER",
  1037.   "DIRECTORY-CLOSE",
  1038.   "DIRECTORY-MAKE",
  1039.   "DIRECTORY-OPEN",
  1040.   "DIRECTORY-OPEN-NOREAD",
  1041.   "DIRECTORY-READ",
  1042.   "DIRECTORY-READ-MATCHING",
  1043.   "DISABLE-INTERRUPTS!",
  1044.   "DIVIDE-FIXNUM",
  1045.   "DOS-SET-KEYBOARD-MODIFIER-MASK!",
  1046.   "DOS-SET-KEYBOARD-TRANSLATION!",
  1047.   "DUMP-BAND",
  1048.   "ENABLE-INTERRUPTS!",
  1049.   "ENVIRONMENT-LINK-NAME",
  1050.   "EQ?",
  1051.   "EQUAL-FIXNUM?",
  1052.   "ERROR-PROCEDURE",
  1053.   "EXECUTE-AT-NEW-STATE-POINT",
  1054.   "EXIT",
  1055.   "EXIT-WITH-VALUE",
  1056.   "FILE-ACCESS",
  1057.   "FILE-ATTRIBUTES",
  1058.   "FILE-ATTRIBUTES-INDIRECT",
  1059.   "FILE-COPY",
  1060.   "FILE-DIRECTORY?",
  1061.   "FILE-EQ?",
  1062.   "FILE-EXISTS?",
  1063.   "FILE-LENGTH-NEW",
  1064.   "FILE-LINK-HARD",
  1065.   "FILE-LINK-SOFT",
  1066.   "FILE-MOD-TIME",
  1067.   "FILE-MOD-TIME-INDIRECT",
  1068.   "FILE-MODES",
  1069.   "FILE-OPEN-APPEND-CHANNEL",
  1070.   "FILE-OPEN-BINARY-INPUT-CHANNEL",
  1071.   "FILE-OPEN-BINARY-OUTPUT-CHANNEL",
  1072.   "FILE-OPEN-CHANNEL",
  1073.   "FILE-OPEN-INPUT-CHANNEL",
  1074.   "FILE-OPEN-IO-CHANNEL",
  1075.   "FILE-OPEN-OUTPUT-CHANNEL",
  1076.   "FILE-POSITION",
  1077.   "FILE-REMOVE",
  1078.   "FILE-REMOVE-LINK",
  1079.   "FILE-RENAME",
  1080.   "FILE-SET-POSITION",
  1081.   "FILE-SOFT-LINK?",
  1082.   "FILE-TIME->STRING",
  1083.   "FILE-TOUCH",
  1084.   "FIND-SYMBOL",
  1085.   "FIXNUM->BIGNUM",
  1086.   "FIXNUM-AND",
  1087.   "FIXNUM-ANDC",
  1088.   "FIXNUM-LSH",
  1089.   "FIXNUM-NEGATE",
  1090.   "FIXNUM-NOT",
  1091.   "FIXNUM-OR",
  1092.   "FIXNUM-QUOTIENT",
  1093.   "FIXNUM-REMAINDER",
  1094.   "FIXNUM-XOR",
  1095.   "FLOATING-VECTOR-CONS",
  1096.   "FLOATING-VECTOR-LENGTH",
  1097.   "FLOATING-VECTOR-REF",
  1098.   "FLOATING-VECTOR-SET!",
  1099.   "FLONUM->BIGNUM",
  1100.   "FLONUM-ABS",
  1101.   "FLONUM-ACOS",
  1102.   "FLONUM-ADD",
  1103.   "FLONUM-ASIN",
  1104.   "FLONUM-ATAN",
  1105.   "FLONUM-ATAN2",
  1106.   "FLONUM-CEILING",
  1107.   "FLONUM-CEILING->EXACT",
  1108.   "FLONUM-COS",
  1109.   "FLONUM-DENORMALIZE",
  1110.   "FLONUM-DIVIDE",
  1111.   "FLONUM-EQUAL?",
  1112.   "FLONUM-EXP",
  1113.   "FLONUM-EXPT",
  1114.   "FLONUM-FLOOR",
  1115.   "FLONUM-FLOOR->EXACT",
  1116.   "FLONUM-GREATER?",
  1117.   "FLONUM-INTEGER?",
  1118.   "FLONUM-LESS?",
  1119.   "FLONUM-LOG",
  1120.   "FLONUM-MULTIPLY",
  1121.   "FLONUM-NEGATE",
  1122.   "FLONUM-NEGATIVE?",
  1123.   "FLONUM-NORMALIZE",
  1124.   "FLONUM-POSITIVE?",
  1125.   "FLONUM-ROUND",
  1126.   "FLONUM-ROUND->EXACT",
  1127.   "FLONUM-SIN",
  1128.   "FLONUM-SQRT",
  1129.   "FLONUM-SUBTRACT",
  1130.   "FLONUM-TAN",
  1131.   "FLONUM-TRUNCATE",
  1132.   "FLONUM-TRUNCATE->EXACT",
  1133.   "FLONUM-ZERO?",
  1134.   "FLONUM?",
  1135.   "FORCE",
  1136.   "FULL-HOSTNAME",
  1137.   "GARBAGE-COLLECT",
  1138.   "GC-SPACE-STATUS",
  1139.   "GCD-FIXNUM",
  1140.   "GENERAL-CAR-CDR",
  1141.   "GET-COMMAND-LINE",
  1142.   "GET-DECODED-TIME",
  1143.   "GET-ENVIRONMENT-VARIABLE",
  1144.   "GET-FIXED-OBJECTS-VECTOR",
  1145.   "GET-FLUID-BINDINGS",
  1146.   "GET-INTERRUPT-ENABLES",
  1147.   "GET-NEXT-CONSTANT",
  1148.   "GET-PRIMITIVE-ADDRESS",
  1149.   "GET-PRIMITIVE-COUNTS",
  1150.   "GET-PRIMITIVE-NAME",
  1151.   "GET-UNUSED-COMMAND-LINE",
  1152.   "GET-USER-HOME-DIRECTORY",
  1153.   "GID->STRING",
  1154.   "GREATER-THAN-FIXNUM?",
  1155.   "HALT",
  1156.   "HAVE-PTYS?",
  1157.   "HOSTNAME",
  1158.   "HUNK3-CONS",
  1159.   "HUNK3-CXR",
  1160.   "HUNK3-SET-CXR!",
  1161.   "INTEGER->CHAR",
  1162.   "INTEGER->FLONUM",
  1163.   "INTEGER-ADD",
  1164.   "INTEGER-ADD-1",
  1165.   "INTEGER-DIVIDE",
  1166.   "INTEGER-EQUAL?",
  1167.   "INTEGER-GREATER?",
  1168.   "INTEGER-LESS?",
  1169.   "INTEGER-MULTIPLY",
  1170.   "INTEGER-NEGATE",
  1171.   "INTEGER-NEGATIVE?",
  1172.   "INTEGER-POSITIVE?",
  1173.   "INTEGER-QUOTIENT",
  1174.   "INTEGER-REMAINDER",
  1175.   "INTEGER-SUBTRACT",
  1176.   "INTEGER-SUBTRACT-1",
  1177.   "INTEGER-ZERO?",
  1178.   "INTEGER?",
  1179.   "KEYBOARD-GET-CONVERSION",
  1180.   "KEYBOARD-SET-CONVERSION!",
  1181.   "LENGTH",
  1182.   "LESS-THAN-FIXNUM?",
  1183.   "LEXICAL-ASSIGNMENT",
  1184.   "LEXICAL-REFERENCE",
  1185.   "LEXICAL-UNASSIGNED?",
  1186.   "LEXICAL-UNBOUND?",
  1187.   "LEXICAL-UNREFERENCEABLE?",
  1188.   "LINK-FILE",
  1189.   "LIST->VECTOR",
  1190.   "LISTIFY-BIGNUM",
  1191.   "LOAD-BAND",
  1192.   "LOCAL-ASSIGNMENT",
  1193.   "LOCAL-REFERENCE",
  1194.   "MAKE-BIT-STRING",
  1195.   "MAKE-CELL",
  1196.   "MAKE-CHAR",
  1197.   "MAKE-NON-POINTER-OBJECT",
  1198.   "MAKE-PIPE",
  1199.   "MAKE-STATE-SPACE",
  1200.   "MAP-CODE-TO-MACHINE-ADDRESS",
  1201.   "MAP-MACHINE-ADDRESS-TO-CODE",
  1202.   "MEMQ",
  1203.   "MICROCODE-IDENTIFY",
  1204.   "MICROCODE-LIBRARY-PATH",
  1205.   "MICROCODE-TABLES-FILENAME",
  1206.   "MINUS-FIXNUM",
  1207.   "MINUS-ONE-PLUS-FIXNUM",
  1208.   "MODULO",
  1209.   "MULTIPLY-FIXNUM",
  1210.   "NEGATIVE-FIXNUM?",
  1211.   "NEGATIVE?",
  1212.   "NEW-DIRECTORY-CLOSE",
  1213.   "NEW-DIRECTORY-OPEN",
  1214.   "NEW-DIRECTORY-READ",
  1215.   "NEW-DIRECTORY-READ-MATCHING",
  1216.   "NON-REENTRANT-CALL-WITH-CURRENT-CONTINUATION",
  1217.   "NOT",
  1218.   "OBJECT-DATUM",
  1219.   "OBJECT-GC-TYPE",
  1220.   "OBJECT-SET-TYPE",
  1221.   "OBJECT-TYPE",
  1222.   "OBJECT-TYPE?",
  1223.   "ONE-PLUS-FIXNUM",
  1224.   "OS-JOB-CONTROL?",
  1225.   "PAIR?",
  1226.   "PLUS-FIXNUM",
  1227.   "POSITIVE-FIXNUM?",
  1228.   "POSITIVE?",
  1229.   "PRIMITIVE-APPLY-STEP",
  1230.   "PRIMITIVE-EVAL-STEP",
  1231.   "PRIMITIVE-FASDUMP",
  1232.   "PRIMITIVE-IMPURIFY",
  1233.   "PRIMITIVE-OBJECT-DATUM",
  1234.   "PRIMITIVE-OBJECT-EQ?",
  1235.   "PRIMITIVE-OBJECT-GC-TYPE",
  1236.   "PRIMITIVE-OBJECT-REF",
  1237.   "PRIMITIVE-OBJECT-SET!",
  1238.   "PRIMITIVE-OBJECT-SET-TYPE",
  1239.   "PRIMITIVE-OBJECT-TYPE",
  1240.   "PRIMITIVE-OBJECT-TYPE?",
  1241.   "PRIMITIVE-PROCEDURE-ARITY",
  1242.   "PRIMITIVE-PROCEDURE-DOCUMENTATION",
  1243.   "PRIMITIVE-PURIFY",
  1244.   "PRIMITIVE-RETURN-STEP",
  1245.   "PROCESS-TIMER-CLEAR",
  1246.   "PROCESS-TIMER-SET",
  1247.   "PURE?",
  1248.   "QUOTED-CHAR?",
  1249.   "QUOTIENT",
  1250.   "RE-CHAR-SET-ADJOIN!",
  1251.   "RE-COMPILE-FASTMAP",
  1252.   "RE-MATCH-BUFFER",
  1253.   "RE-MATCH-SUBSTRING",
  1254.   "RE-SEARCH-BUFFER-BACKWARD",
  1255.   "RE-SEARCH-BUFFER-FORWARD",
  1256.   "RE-SEARCH-SUBSTRING-BACKWARD",
  1257.   "RE-SEARCH-SUBSTRING-FORWARD",
  1258.   "READ-BITS!",
  1259.   "REAL-TIME-CLOCK",
  1260.   "REAL-TIMER-CLEAR",
  1261.   "REAL-TIMER-SET",
  1262.   "REHASH",
  1263.   "RELOAD-BAND-NAME",
  1264.   "RELOAD-RETRIEVE-STRING",
  1265.   "RELOAD-SAVE-STRING",
  1266.   "REMAINDER",
  1267.   "RETURN-TO-APPLICATION",
  1268.   "SCAN-BACKWARD-PREFIX-CHARS",
  1269.   "SCAN-FORWARD-PREFIX-CHARS",
  1270.   "SCAN-FORWARD-TO-WORD",
  1271.   "SCAN-LIST-BACKWARD",
  1272.   "SCAN-LIST-FORWARD",
  1273.   "SCAN-SEXPS-FORWARD",
  1274.   "SCAN-WORD-BACKWARD",
  1275.   "SCAN-WORD-FORWARD",
  1276.   "SCODE-EVAL",
  1277.   "SET-CAR!",
  1278.   "SET-CDR!",
  1279.   "SET-CELL-CONTENTS!",
  1280.   "SET-CURRENT-DYNAMIC-STATE!",
  1281.   "SET-CURRENT-HISTORY!",
  1282.   "SET-FILE-MODES!",
  1283.   "SET-FILE-TIMES!",
  1284.   "SET-FIXED-OBJECTS-VECTOR!",
  1285.   "SET-FLUID-BINDINGS!",
  1286.   "SET-INTERRUPT-ENABLES!",
  1287.   "SET-RUN-LIGHT!",
  1288.   "SET-STRING-LENGTH!",
  1289.   "SET-STRING-MAXIMUM-LENGTH!",
  1290.   "SET-TRAP-STATE!",
  1291.   "SET-WORKING-DIRECTORY-PATHNAME!",
  1292.   "SETUP-TIMER-INTERRUPT",
  1293.   "STACK-ADDRESS-OFFSET",
  1294.   "STACK-TOP-ADDRESS",
  1295.   "STRING->SYMBOL",
  1296.   "STRING->SYNTAX-ENTRY",
  1297.   "STRING-ALLOCATE",
  1298.   "STRING-HASH",
  1299.   "STRING-HASH-MOD",
  1300.   "STRING-LENGTH",
  1301.   "STRING-MAXIMUM-LENGTH",
  1302.   "STRING-REF",
  1303.   "STRING-SET!",
  1304.   "STRING?",
  1305.   "SUBSTRING-CI=?",
  1306.   "SUBSTRING-DOWNCASE!",
  1307.   "SUBSTRING-FIND-NEXT-CHAR-IN-SET",
  1308.   "SUBSTRING-FIND-PREVIOUS-CHAR-IN-SET",
  1309.   "SUBSTRING-MATCH-BACKWARD",
  1310.   "SUBSTRING-MATCH-BACKWARD-CI",
  1311.   "SUBSTRING-MATCH-FORWARD",
  1312.   "SUBSTRING-MATCH-FORWARD-CI",
  1313.   "SUBSTRING-MOVE-LEFT!",
  1314.   "SUBSTRING-MOVE-RIGHT!",
  1315.   "SUBSTRING-UPCASE!",
  1316.   "SUBSTRING<?",
  1317.   "SUBSTRING=?",
  1318.   "SUBVECTOR->LIST",
  1319.   "SUBVECTOR-FILL!",
  1320.   "SUBVECTOR-MOVE-LEFT!",
  1321.   "SUBVECTOR-MOVE-RIGHT!",
  1322.   "SYSTEM",
  1323.   "SYSTEM-CALL-ERROR-MESSAGE",
  1324.   "SYSTEM-CLOCK",
  1325.   "SYSTEM-HUNK3-CXR0",
  1326.   "SYSTEM-HUNK3-CXR1",
  1327.   "SYSTEM-HUNK3-CXR2",
  1328.   "SYSTEM-HUNK3-SET-CXR0!",
  1329.   "SYSTEM-HUNK3-SET-CXR1!",
  1330.   "SYSTEM-HUNK3-SET-CXR2!",
  1331.   "SYSTEM-LIST-TO-VECTOR",
  1332.   "SYSTEM-PAIR-CAR",
  1333.   "SYSTEM-PAIR-CDR",
  1334.   "SYSTEM-PAIR-CONS",
  1335.   "SYSTEM-PAIR-SET-CAR!",
  1336.   "SYSTEM-PAIR-SET-CDR!",
  1337.   "SYSTEM-PAIR?",
  1338.   "SYSTEM-SUBVECTOR-TO-LIST",
  1339.   "SYSTEM-VECTOR-REF",
  1340.   "SYSTEM-VECTOR-SET!",
  1341.   "SYSTEM-VECTOR-SIZE",
  1342.   "SYSTEM-VECTOR?",
  1343.   "TERMCAP-GOTO-STRING",
  1344.   "TERMCAP-PAD-STRING",
  1345.   "TERMCAP-PARAM-STRING",
  1346.   "TERMINAL-BUFFERED",
  1347.   "TERMINAL-BUFFERED?",
  1348.   "TERMINAL-COOKED-OUTPUT",
  1349.   "TERMINAL-COOKED-OUTPUT?",
  1350.   "TERMINAL-DRAIN-OUTPUT",
  1351.   "TERMINAL-FLUSH-INPUT",
  1352.   "TERMINAL-FLUSH-OUTPUT",
  1353.   "TERMINAL-GET-ISPEED",
  1354.   "TERMINAL-GET-OSPEED",
  1355.   "TERMINAL-GET-STATE",
  1356.   "TERMINAL-NONBUFFERED",
  1357.   "TERMINAL-RAW-OUTPUT",
  1358.   "TERMINAL-SET-STATE",
  1359.   "TRANSLATE-TO-STATE-POINT",
  1360.   "TTY-COMMAND-BEEP",
  1361.   "TTY-COMMAND-CLEAR",
  1362.   "TTY-GET-INTERRUPT-CHARS",
  1363.   "TTY-GET-INTERRUPT-ENABLES",
  1364.   "TTY-INPUT-CHANNEL",
  1365.   "TTY-NEXT-INTERRUPT-CHAR",
  1366.   "TTY-OUTPUT-CHANNEL",
  1367.   "TTY-SET-INTERRUPT-CHARS!",
  1368.   "TTY-SET-INTERRUPT-ENABLES",
  1369.   "TTY-X-SIZE",
  1370.   "TTY-Y-SIZE",
  1371.   "UID->STRING",
  1372.   "UNDER-EMACS?",
  1373.   "UNIX-ENVIRONMENT",
  1374.   "UNSIGNED-INTEGER->BIT-STRING",
  1375.   "VECTOR",
  1376.   "VECTOR-8B-FILL!",
  1377.   "VECTOR-8B-FIND-NEXT-CHAR",
  1378.   "VECTOR-8B-FIND-NEXT-CHAR-CI",
  1379.   "VECTOR-8B-FIND-PREVIOUS-CHAR",
  1380.   "VECTOR-8B-FIND-PREVIOUS-CHAR-CI",
  1381.   "VECTOR-8B-REF",
  1382.   "VECTOR-8B-SET!",
  1383.   "VECTOR-CONS",
  1384.   "VECTOR-LENGTH",
  1385.   "VECTOR-REF",
  1386.   "VECTOR-SET!",
  1387.   "WITH-HISTORY-DISABLED",
  1388.   "WITH-INTERRUPT-MASK",
  1389.   "WITH-INTERRUPTS-REDUCED",
  1390.   "WITH-STACK-MARKER",
  1391.   "WITHIN-CONTROL-POINT",
  1392.   "WORKING-DIRECTORY-PATHNAME",
  1393.   "WRITE-BITS!",
  1394.   "ZERO-FIXNUM?",
  1395.   "ZERO?",
  1396.   "INEXISTENT-PRIMITIVE"
  1397. };
  1398.  
  1399. char * Primitive_Documentation_Table [] = {
  1400.   ((char *) 0),
  1401.   ((char *) 0),
  1402.   ((char *) 0),
  1403.   ((char *) 0),
  1404.   ((char *) 0),
  1405.   ((char *) 0),
  1406.   ((char *) 0),
  1407.   ((char *) 0),
  1408.   ((char *) 0),
  1409.   ((char *) 0),
  1410.   ((char *) 0),
  1411.   ((char *) 0),
  1412.   ((char *) 0),
  1413.   ((char *) 0),
  1414.   ((char *) 0),
  1415.   ((char *) 0),
  1416.   ((char *) 0),
  1417.   ((char *) 0),
  1418.   ((char *) 0),
  1419.   ((char *) 0),
  1420.   ((char *) 0),
  1421.   ((char *) 0),
  1422.   ((char *) 0),
  1423.   ((char *) 0),
  1424.   ((char *) 0),
  1425.   ((char *) 0),
  1426.   ((char *) 0),
  1427.   ((char *) 0),
  1428.   ((char *) 0),
  1429.   ((char *) 0),
  1430.   ((char *) 0),
  1431.   ((char *) 0),
  1432.   ((char *) 0),
  1433.   ((char *) 0),
  1434.   ((char *) 0),
  1435.   ((char *) 0),
  1436.   ((char *) 0),
  1437.   ((char *) 0),
  1438.   ((char *) 0),
  1439.   ((char *) 0),
  1440.   ((char *) 0),
  1441.   ((char *) 0),
  1442.   ((char *) 0),
  1443.   ((char *) 0),
  1444.   ((char *) 0),
  1445.   ((char *) 0),
  1446.   ((char *) 0),
  1447.   ((char *) 0),
  1448.   ((char *) 0),
  1449.   ((char *) 0),
  1450.   ((char *) 0),
  1451.   ((char *) 0),
  1452.   ((char *) 0),
  1453.   ((char *) 0),
  1454.   ((char *) 0),
  1455.   "Put CHANNEL in blocking mode.",
  1456.   "Return #F iff CHANNEL is in non-blocking mode.\n\
  1457. Otherwise, CHANNEL is in blocking mode.\n\
  1458. If CHANNEL can be put in non-blocking mode, #T is returned.\n\
  1459. If it cannot, 0 is returned.",
  1460.   "Close file CHANNEL-NUMBER.",
  1461.   "Put CHANNEL in non-blocking mode.",
  1462.   "Read characters from CHANNEL, storing them in STRING.\n\
  1463. Third and fourth args START and END specify the substring to use.\n\
  1464. Attempt to fill that substring unless end-of-file is reached.\n\
  1465. Return the number of characters actually read from CHANNEL.",
  1466.   "Register CHANNEL for selection.",
  1467.   "Return #F iff CHANNEL is registered for selection.",
  1468.   "Like CHANNEL-READ, but also watches registered input channels.\n\
  1469. If there is no input on CHANNEL, returns #F.\n\
  1470. If there is input on some other registered channel, returns -2.\n\
  1471. If the status of some subprocess changes, returns -3.\n\
  1472. If an interrupt occurs during the read, returns -4.",
  1473.   "Return a vector of all channels in the channel table.",
  1474.   "Return (as a nonnegative integer) the type of CHANNEL.",
  1475.   "Unregister CHANNEL for selection.",
  1476.   "Write characters to CHANNEL, reading them from STRING.\n\
  1477. Third and fourth args START and END specify the substring to use.",
  1478.   ((char *) 0),
  1479.   ((char *) 0),
  1480.   ((char *) 0),
  1481.   ((char *) 0),
  1482.   ((char *) 0),
  1483.   ((char *) 0),
  1484.   ((char *) 0),
  1485.   ((char *) 0),
  1486.   "Clears the interrupt bits in the MASK argument.\n\
  1487. The bits in MASK are interpreted as for `get-interrupt-enables'.",
  1488.   ((char *) 0),
  1489.   ((char *) 0),
  1490.   "Given a compiled closure, return the entry point which it invokes.",
  1491.   "Given a compiled code address, return its compiled code block.",
  1492.   "Given a compiled code address, return its offset into its block.",
  1493.   ((char *) 0),
  1494.   ((char *) 0),
  1495.   "Return #T if OBJECT is in constant space or isn't a pointer.",
  1496.   "Suck up DOS typeahead.",
  1497.   "This is an obsolete primitive; use `get-decoded-time' instead.",
  1498.   ((char *) 0),
  1499.   "Return the current file system time stamp.\n\
  1500. This is an integer whose units are in seconds.",
  1501.   "Return Scheme's effective GID.",
  1502.   "This is an obsolete primitive; use `get-decoded-time' instead.",
  1503.   "This is an obsolete primitive; use `get-decoded-time' instead.",
  1504.   "This is an obsolete primitive; use `get-decoded-time' instead.",
  1505.   "This is an obsolete primitive; use `get-decoded-time' instead.",
  1506.   "Return Scheme's effective UID.",
  1507.   "Return the name of the current user's home directory.",
  1508.   "Return (as a string) the user name of the user running Scheme.",
  1509.   "This is an obsolete primitive; use `get-decoded-time' instead.",
  1510.   "A cheap, built-in printer intended for debugging the interpreter.",
  1511.   "Close the directory opened by `directory-open'.",
  1512.   "Create a new directory, called NAME.",
  1513.   "Open the directory NAME for reading.\n\
  1514. If successful, return the first filename in the directory as a string.\n\
  1515. If there is no such file, #F is returned.",
  1516.   "Open the directory NAME for reading.",
  1517.   "Read and return a filename from the directory opened by `directory-open'.\n\
  1518. Return #F if there are no more files in the directory.",
  1519.   "Read and return a filename from the directory opened by `directory-open'.\n\
  1520. The filename must begin with the argument string.\n\
  1521. Return #F if there are no more matching files in the directory.",
  1522.   ((char *) 0),
  1523.   ((char *) 0),
  1524.   "Set the keyboard modifier mask",
  1525.   ((char *) 0),
  1526.   ((char *) 0),
  1527.   ((char *) 0),
  1528.   ((char *) 0),
  1529.   ((char *) 0),
  1530.   ((char *) 0),
  1531.   ((char *) 0),
  1532.   ((char *) 0),
  1533.   "Exit Scheme with no option to restart.",
  1534.   "Exit Scheme with no option to restart, returning integer argument\n\
  1535. as exit status.",
  1536.   "Return #T iff FILENAME exists and is accessible according to MODE.\n\
  1537. MODE is an integer between 0 and 7 inclusive, bitwise encoded:\n\
  1538.   4 ==> file is readable;\n\
  1539.   2 ==> file is writable;\n\
  1540.   1 ==> file is executable.",
  1541.   "Given a file name, return attribute information about the file.\n\
  1542. If the file exists and its status information is accessible, the result\n\
  1543. is a vector of 10 items (see the reference manual for details).  Otherwise\n\
  1544. the result is #F.",
  1545.   "Like FILE-ATTRIBUTES but indirect through symbolic links.",
  1546.   "Make a new copy of the file FROM-NAME, called TO-NAME.",
  1547.   "Return #T iff FILENAME refers to an existing directory.\n\
  1548. Otherwise #F is returned, meaning either that FILENAME doesn't exist\n\
  1549.  or that it isn't a directory.",
  1550.   "True iff the two file arguments are the same file.",
  1551.   "Return #T iff FILENAME refers to an existing file.\n\
  1552. Return #F if the file doesn't exist.\n\
  1553. Return zero if it's a symbolic link that points to a nonexisting file.\n\
  1554. Signal an error if the file's existence is indeterminate.",
  1555.   "Return the length of CHANNEL in characters.",
  1556.   "Create a hard link from file FROM-NAME to file TO-NAME.\n\
  1557. TO-NAME becomes another name for the file FROM-NAME.",
  1558.   "Create a soft link from file FROM-NAME to file TO-NAME.\n\
  1559. TO-NAME becomes a soft link containing the string FROM-NAME.",
  1560.   ((char *) 0),
  1561.   ((char *) 0),
  1562.   "Return mode bits of FILE, as an integer.",
  1563.   "Open an output file called FILENAME, returning a channel number.\n\
  1564. If the file exists, output is appended to its contents.",
  1565.   "Open an input file called FILENAME, in binary mode, returning a channel number.",
  1566.   "Open an output file called FILENAME, in binary mode,\n\
  1567. returning a channel number.  If the file exists, it is rewritten.",
  1568.   "This is an obsolete primitive.\n\
  1569. Open a file called FILENAME, returning a channel number.\n\
  1570. Second argument MODE says how to open the file:\n\
  1571.   #F        ==> open for input;\n\
  1572.   #T        ==> open for output, rewriting file if it exists;\n\
  1573.   otherwise ==> open for output, appending to existing file.",
  1574.   "Open an input file called FILENAME, returning a channel number.",
  1575.   "Open a file called FILENAME, returning a channel number.\n\
  1576. The file is opened for both input and output.\n\
  1577. If the file exists, its contents are not disturbed.",
  1578.   "Open an output file called FILENAME, returning a channel number.\n\
  1579. If the file exists, it is rewritten.",
  1580.   "Return the position of CHANNEL's file-pointer.\n\
  1581. This is a non-negative number strictly less than the file's length.",
  1582.   "Delete file FILENAME.\n\
  1583. If FILENAME is a soft link, the link is deleted.",
  1584.   "If file FILENAME is a link to another file (hard or soft), remove it.",
  1585.   "Rename file FROM-NAME to TO-NAME.",
  1586.   "Set the file-pointer of CHANNEL to POSITION.\n\
  1587. POSITION must be a non-negative number strictly less than the file's length.",
  1588.   "Iff FILENAME refers to an existing soft link, return the link contents.\n\
  1589. Otherwise #F is returned, meaning either that FILENAME doesn't exist\n\
  1590.  or that it isn't a soft link.",
  1591.   "Convert a file system time stamp into a date/time string.",
  1592.   "Given a file name, change the times of the file to the current time.\n\
  1593. If the file does not exist, create it.\n\
  1594. Both the access time and modification time are changed.\n\
  1595. Return #F if the file existed and its time was modified.\n\
  1596. Otherwise the file did not exist and it was created.",
  1597.   "(FIND-SYMBOL STRING)\n\
  1598. Returns the symbol whose name is STRING, or #F if no such symbol exists.",
  1599.   ((char *) 0),
  1600.   ((char *) 0),
  1601.   ((char *) 0),
  1602.   ((char *) 0),
  1603.   ((char *) 0),
  1604.   ((char *) 0),
  1605.   ((char *) 0),
  1606.   ((char *) 0),
  1607.   ((char *) 0),
  1608.   ((char *) 0),
  1609.   ((char *) 0),
  1610.   ((char *) 0),
  1611.   ((char *) 0),
  1612.   ((char *) 0),
  1613.   ((char *) 0),
  1614.   ((char *) 0),
  1615.   ((char *) 0),
  1616.   ((char *) 0),
  1617.   ((char *) 0),
  1618.   ((char *) 0),
  1619.   ((char *) 0),
  1620.   ((char *) 0),
  1621.   ((char *) 0),
  1622.   ((char *) 0),
  1623.   ((char *) 0),
  1624.   ((char *) 0),
  1625.   ((char *) 0),
  1626.   ((char *) 0),
  1627.   ((char *) 0),
  1628.   ((char *) 0),
  1629.   ((char *) 0),
  1630.   ((char *) 0),
  1631.   ((char *) 0),
  1632.   ((char *) 0),
  1633.   ((char *) 0),
  1634.   ((char *) 0),
  1635.   ((char *) 0),
  1636.   ((char *) 0),
  1637.   ((char *) 0),
  1638.   ((char *) 0),
  1639.   ((char *) 0),
  1640.   ((char *) 0),
  1641.   ((char *) 0),
  1642.   ((char *) 0),
  1643.   ((char *) 0),
  1644.   ((char *) 0),
  1645.   ((char *) 0),
  1646.   ((char *) 0),
  1647.   ((char *) 0),
  1648.   ((char *) 0),
  1649.   ((char *) 0),
  1650.   "Returns the full hostname (including domain if available) as a string.",
  1651.   ((char *) 0),
  1652.   ((char *) 0),
  1653.   ((char *) 0),
  1654.   ((char *) 0),
  1655.   ((char *) 0),
  1656.   "Return a vector with the current decoded time;\n\
  1657. arg TAG is used to tag the vector.\n\
  1658. The vector's elements are:\n\
  1659.   #(TAG second minute hour day month year day-of-week)",
  1660.   "Look up the value of a variable in the user's shell environment.\n\
  1661. The argument, a variable name, must be a string.\n\
  1662. The result is either a string (the variable's value),\n\
  1663.  or #F indicating that the variable does not exist.",
  1664.   ((char *) 0),
  1665.   ((char *) 0),
  1666.   "Returns the current interrupt mask.",
  1667.   "Return the next free address in constant space.",
  1668.   "Given a symbol NAME, return the primitive object of that name.\n\
  1669. ARITY is the number of arguments which the primitive should expect.\n\
  1670. If ARITY is #F, #F is returned if the primitive is not implemented,\n\
  1671. even if the name already exists.\n\
  1672. If ARITY is an integer, a primitive object will always be returned,\n\
  1673. whether the corresponding primitive is implemented or not.",
  1674.   "Return a pair of integers which are the number of primitive procedures.\n\
  1675. The car is the count of defined primitives;\n\
  1676. the cdr is the count of undefined primitives that are referenced.",
  1677.   "Return the (string) name of PRIMITIVE-PROCEDURE.",
  1678.   ((char *) 0),
  1679.   "Return the file name of a given user's home directory.\n\
  1680. The user name argument must be a string.\n\
  1681. If no such user is known, #F is returned.",
  1682.   "Return the group name corresponding to GID.\n\
  1683. If the argument is not a known group ID, #F is returned.",
  1684.   ((char *) 0),
  1685.   "Exit Scheme, suspending it to that it can be restarted.",
  1686.   ((char *) 0),
  1687.   "Returns the hostname of the machine as a string.",
  1688.   ((char *) 0),
  1689.   ((char *) 0),
  1690.   ((char *) 0),
  1691.   ((char *) 0),
  1692.   ((char *) 0),
  1693.   ((char *) 0),
  1694.   ((char *) 0),
  1695.   ((char *) 0),
  1696.   ((char *) 0),
  1697.   ((char *) 0),
  1698.   ((char *) 0),
  1699.   ((char *) 0),
  1700.   ((char *) 0),
  1701.   ((char *) 0),
  1702.   ((char *) 0),
  1703.   ((char *) 0),
  1704.   ((char *) 0),
  1705.   ((char *) 0),
  1706.   ((char *) 0),
  1707.   ((char *) 0),
  1708.   ((char *) 0),
  1709.   ((char *) 0),
  1710.   ((char *) 0),
  1711.   ((char *) 0),
  1712.   ((char *) 0),
  1713.   ((char *) 0),
  1714.   ((char *) 0),
  1715.   ((char *) 0),
  1716.   ((char *) 0),
  1717.   ((char *) 0),
  1718.   "This is an obsolete primitive.  Use `file-link-hard' or `file-link-soft'.\n\
  1719. Create a new name for file FROM-NAME, called TO-NAME.\n\
  1720. If third arg HARD? is #F, a soft link is created;\n\
  1721.  otherwise a hard link is created.",
  1722.   ((char *) 0),
  1723.   "Returns a list of the digits of BIGNUM in RADIX.",
  1724.   ((char *) 0),
  1725.   ((char *) 0),
  1726.   ((char *) 0),
  1727.   ((char *) 0),
  1728.   ((char *) 0),
  1729.   ((char *) 0),
  1730.   "Convert the unsigned integer NUMBER into a fixnum.\n\
  1731. Assert: (= (OBJECT-DATUM (MAKE-NON-POINTER-OBJECT X)) X).",
  1732.   "Return a cons of two channels, the reader and writer of a pipe.",
  1733.   "Return a newly-allocated state-space.\n\
  1734. Argument MUTABLE?, if not #F, means return a mutable state-space.\n\
  1735. Otherwise, -the- immutable state-space is saved internally.",
  1736.   "For return codes and primitives, this returns the internal\n\
  1737. representation of the return address or primitive address given the\n\
  1738. external representation.\n\
  1739. \n\
  1740. This accepts two arguments, TYPE-CODE and VALUE-CODE.  TYPE-CODE is\n\
  1741. the microcode type of the object to be returned; it must be either a\n\
  1742. return address or primitive procedure type.  VALUE-CODE is the index\n\
  1743. number (i.e. external representation) of the desired result.",
  1744.   "This is the inverse operation of `map-code-to-machine-address'.  Given\n\
  1745. a machine ADDRESS and a TYPE-CODE (either return code or primitive\n\
  1746. procedure), it finds the number for the external representation for\n\
  1747. the internal address.",
  1748.   ((char *) 0),
  1749.   ((char *) 0),
  1750.   ((char *) 0),
  1751.   ((char *) 0),
  1752.   ((char *) 0),
  1753.   ((char *) 0),
  1754.   ((char *) 0),
  1755.   ((char *) 0),
  1756.   ((char *) 0),
  1757.   ((char *) 0),
  1758.   "Close DIRECTORY.",
  1759.   "Open the directory NAME for reading, returning a directory number.",
  1760.   "Read and return a filename from DIRECTORY, or #F if no more files.",
  1761.   "Read and return a filename from DIRECTORY.\n\
  1762. The filename must begin with the STRING.\n\
  1763. Return #F if there are no more matching files in the directory.",
  1764.   ((char *) 0),
  1765.   ((char *) 0),
  1766.   ((char *) 0),
  1767.   ((char *) 0),
  1768.   ((char *) 0),
  1769.   ((char *) 0),
  1770.   ((char *) 0),
  1771.   ((char *) 0),
  1772.   ((char *) 0),
  1773.   ((char *) 0),
  1774.   ((char *) 0),
  1775.   ((char *) 0),
  1776.   ((char *) 0),
  1777.   ((char *) 0),
  1778.   ((char *) 0),
  1779.   ((char *) 0),
  1780.   "Remove OBJECT from pure space so it can be side effected.\n\
  1781. The object is placed in constant space instead.",
  1782.   "Return the datum part of OBJECT as an unsigned integer.",
  1783.   ((char *) 0),
  1784.   "Return an unsigned integer indicating the GC type of the object.",
  1785.   ((char *) 0),
  1786.   ((char *) 0),
  1787.   "Return a new object made from TYPE-CODE and the datum part of OBJECT.",
  1788.   "Return the type code of OBJECT as an unsigned integer.",
  1789.   "Return #T if TYPE-CODE is OBJECT's type code, else #F.",
  1790.   "Given a primitive procedure, returns the number of arguments it requires.",
  1791.   "Given a primitive procedure, return its documentation string.",
  1792.   ((char *) 0),
  1793.   ((char *) 0),
  1794.   "Turn off the process timer.",
  1795.   "Set the process timer.\n\
  1796. First arg FIRST says how long to wait until the first interrupt;\n\
  1797. second arg INTERVAL says how long to wait between interrupts after that.\n\
  1798. Both arguments are in units of milliseconds.",
  1799.   "Return #T if OBJECT is pure (i.e. it doesn't point to any other object,\n\
  1800. or it is in a pure section of the constant space).",
  1801.   ((char *) 0),
  1802.   ((char *) 0),
  1803.   ((char *) 0),
  1804.   ((char *) 0),
  1805.   ((char *) 0),
  1806.   ((char *) 0),
  1807.   ((char *) 0),
  1808.   ((char *) 0),
  1809.   ((char *) 0),
  1810.   ((char *) 0),
  1811.   ((char *) 0),
  1812.   "Return the current real time in units of milliseconds.",
  1813.   "Turn off the real timer.",
  1814.   "Set the real timer.\n\
  1815. First arg FIRST says how long to wait until the first interrupt;\n\
  1816. second arg INTERVAL says how long to wait between interrupts after that.\n\
  1817. Both arguments are in units of milliseconds.",
  1818.   ((char *) 0),
  1819.   "Return the filename from which the runtime system was last restored.\n\
  1820. The result is a string, or #F if the system was not restored.",
  1821.   ((char *) 0),
  1822.   ((char *) 0),
  1823.   ((char *) 0),
  1824.   "Invokes first argument THUNK with no arguments and a special return address.\n\
  1825. The return address calls the second argument on the remaining arguments.\n\
  1826. This is used by the runtime system to create stack frames that can be\n\
  1827. identified by the continuation parser.",
  1828.   ((char *) 0),
  1829.   ((char *) 0),
  1830.   ((char *) 0),
  1831.   ((char *) 0),
  1832.   ((char *) 0),
  1833.   ((char *) 0),
  1834.   ((char *) 0),
  1835.   ((char *) 0),
  1836.   ((char *) 0),
  1837.   ((char *) 0),
  1838.   ((char *) 0),
  1839.   ((char *) 0),
  1840.   ((char *) 0),
  1841.   ((char *) 0),
  1842.   "Set the mode bits of FILE to MODE.",
  1843.   "Change the access and modification times of FILE.\n\
  1844. The second and third arguments are the respective times;\n\
  1845. they are integers are the times in seconds since 00:00:00 GMT, Jan. 1, 1970\n\
  1846. The file must exist and you must be the owner (or superuser).",
  1847.   ((char *) 0),
  1848.   ((char *) 0),
  1849.   "Sets the interrupt mask to NEW-INT-ENABLES; returns previous mask value.\n\
  1850. See `mask_interrupt_enables' for more information on interrupts.",
  1851.   ((char *) 0),
  1852.   ((char *) 0),
  1853.   ((char *) 0),
  1854.   ((char *) 0),
  1855.   "Change the current working directory to NAME.",
  1856.   "This is an obsolete primitive; use `process-timer-set' instead.",
  1857.   ((char *) 0),
  1858.   ((char *) 0),
  1859.   "(STRING->SYMBOL STRING)\n\
  1860. Returns the symbol whose name is STRING, constructing a new symbol if needed.",
  1861.   ((char *) 0),
  1862.   ((char *) 0),
  1863.   "(STRING-HASH STRING)\n\
  1864. Return a hash value for a string.  This uses the hashing\n\
  1865. algorithm used for interning symbols.  It is intended for use by\n\
  1866. the reader in creating interned symbols.",
  1867.   "(STRING-HASH-MOD STRING DENOMINATOR)\n\
  1868. DENOMINATOR must be a nonnegative integer.\n\
  1869. Equivalent to (MOD (STRING-HASH STRING) DENOMINATOR).",
  1870.   ((char *) 0),
  1871.   ((char *) 0),
  1872.   ((char *) 0),
  1873.   ((char *) 0),
  1874.   ((char *) 0),
  1875.   ((char *) 0),
  1876.   ((char *) 0),
  1877.   ((char *) 0),
  1878.   ((char *) 0),
  1879.   ((char *) 0),
  1880.   ((char *) 0),
  1881.   ((char *) 0),
  1882.   ((char *) 0),
  1883.   ((char *) 0),
  1884.   ((char *) 0),
  1885.   ((char *) 0),
  1886.   ((char *) 0),
  1887.   ((char *) 0),
  1888.   ((char *) 0),
  1889.   ((char *) 0),
  1890.   ((char *) 0),
  1891.   ((char *) 0),
  1892.   "Invoke sh (the Bourne shell) on the string argument.\n\
  1893. Wait until the shell terminates, returning its exit status as an integer.",
  1894.   ((char *) 0),
  1895.   "Return the current process time in units of milliseconds.",
  1896.   ((char *) 0),
  1897.   ((char *) 0),
  1898.   ((char *) 0),
  1899.   ((char *) 0),
  1900.   ((char *) 0),
  1901.   ((char *) 0),
  1902.   ((char *) 0),
  1903.   ((char *) 0),
  1904.   ((char *) 0),
  1905.   ((char *) 0),
  1906.   ((char *) 0),
  1907.   ((char *) 0),
  1908.   ((char *) 0),
  1909.   ((char *) 0),
  1910.   ((char *) 0),
  1911.   ((char *) 0),
  1912.   ((char *) 0),
  1913.   ((char *) 0),
  1914.   ((char *) 0),
  1915.   ((char *) 0),
  1916.   ((char *) 0),
  1917.   "Put TERMINAL into buffered mode.",
  1918.   "Return #F iff TERMINAL is not in buffered mode.",
  1919.   "Put TERMINAL into cooked output mode.",
  1920.   "Return #F iff TERMINAL is not in cooked output mode.",
  1921.   "Wait until all characters in TERMINAL's output buffer have been sent.",
  1922.   "Discard any characters in TERMINAL's input buffer.",
  1923.   "Discard any characters in TERMINAL's output buffer.",
  1924.   ((char *) 0),
  1925.   ((char *) 0),
  1926.   ((char *) 0),
  1927.   "Put TERMINAL into nonbuffered mode.",
  1928.   "Put TERMINAL into raw output mode.",
  1929.   ((char *) 0),
  1930.   ((char *) 0),
  1931.   "Return a string that, when written to the display, will make it beep.",
  1932.   "Return a string that, when written to the display, will clear it.",
  1933.   "Return the current interrupt characters as a string.",
  1934.   "Return the current keyboard interrupt enables.",
  1935.   "Return the standard input channel.",
  1936.   "Return the next interrupt character in the console input buffer.\n\
  1937. The character is returned as an unsigned integer.",
  1938.   "Return the standard output channel.",
  1939.   "Change the current interrupt characters to STRING.\n\
  1940. STRING must be in the correct form for this operating system.",
  1941.   "Change the keyboard interrupt enables to MASK.",
  1942.   "Return the display width in character columns.",
  1943.   "Return the display height in character lines.",
  1944.   "Return the user name corresponding to UID.\n\
  1945. If the argument is not a known user ID, #F is returned.",
  1946.   ((char *) 0),
  1947.   "Copy the unix environment and return it as a vector of strings.",
  1948.   ((char *) 0),
  1949.   ((char *) 0),
  1950.   ((char *) 0),
  1951.   ((char *) 0),
  1952.   ((char *) 0),
  1953.   ((char *) 0),
  1954.   ((char *) 0),
  1955.   ((char *) 0),
  1956.   ((char *) 0),
  1957.   ((char *) 0),
  1958.   ((char *) 0),
  1959.   ((char *) 0),
  1960.   ((char *) 0),
  1961.   ((char *) 0),
  1962.   ((char *) 0),
  1963.   ((char *) 0),
  1964.   "Call first argument THUNK with a continuation that has a special marker.\n\
  1965. When THUNK returns, the marker is discarded.\n\
  1966. The value of THUNK is returned to the continuation of this primitive.\n\
  1967. The marker consists of the second and third arguments.\n\
  1968. By convention, the second argument is a tag identifying the kind of marker,\n\
  1969. and the third argument is data identifying the marker instance.",
  1970.   ((char *) 0),
  1971.   "Return the current working directory as a string.",
  1972.   ((char *) 0),
  1973.   ((char *) 0),
  1974.   ((char *) 0),
  1975.   ((char *) 0)
  1976. };
  1977.  
  1978. int Primitive_Arity_Table [] = {
  1979.   2,
  1980.   2,
  1981.   2,
  1982.   2,
  1983.   2,
  1984.   2,
  1985.   2,
  1986.   1,
  1987.   1,
  1988.   2,
  1989.   1,
  1990.   2,
  1991.   1,
  1992.   1,
  1993.   0,
  1994.   1,
  1995.   0,
  1996.   1,
  1997.   1,
  1998.   1,
  1999.   2,
  2000.   2,
  2001.   2,
  2002.   2,
  2003.   2,
  2004.   1,
  2005.   1,
  2006.   2,
  2007.   2,
  2008.   2,
  2009.   1,
  2010.   1,
  2011.   1,
  2012.   1,
  2013.   2,
  2014.   2,
  2015.   2,
  2016.   2,
  2017.   1,
  2018.   2,
  2019.   2,
  2020.   2,
  2021.   2,
  2022.   2,
  2023.   2,
  2024.   1,
  2025.   2,
  2026.   1,
  2027.   3,
  2028.   5,
  2029.   1,
  2030.   1,
  2031.   1,
  2032.   1,
  2033.   1,
  2034.   1,
  2035.   1,
  2036.   1,
  2037.   1,
  2038.   4,
  2039.   1,
  2040.   1,
  2041.   4,
  2042.   0,
  2043.   1,
  2044.   1,
  2045.   4,
  2046.   1,
  2047.   1,
  2048.   2,
  2049.   1,
  2050.   1,
  2051.   1,
  2052.   1,
  2053.   1,
  2054.   1,
  2055.   1,
  2056.   2,
  2057.   1,
  2058.   1,
  2059.   1,
  2060.   1,
  2061.   2,
  2062.   1,
  2063.   0,
  2064.   0,
  2065.   1,
  2066.   0,
  2067.   0,
  2068.   0,
  2069.   0,
  2070.   0,
  2071.   0,
  2072.   0,
  2073.   0,
  2074.   0,
  2075.   0,
  2076.   1,
  2077.   0,
  2078.   1,
  2079.   1,
  2080.   1,
  2081.   0,
  2082.   1,
  2083.   1,
  2084.   2,
  2085.   1,
  2086.   3,
  2087.   2,
  2088.   1,
  2089.   3,
  2090.   2,
  2091.   2,
  2092.   3,
  2093.   4,
  2094.   0,
  2095.   1,
  2096.   2,
  2097.   1,
  2098.   1,
  2099.   2,
  2100.   1,
  2101.   2,
  2102.   1,
  2103.   1,
  2104.   2,
  2105.   2,
  2106.   1,
  2107.   1,
  2108.   1,
  2109.   1,
  2110.   1,
  2111.   1,
  2112.   2,
  2113.   1,
  2114.   1,
  2115.   1,
  2116.   1,
  2117.   1,
  2118.   1,
  2119.   2,
  2120.   2,
  2121.   1,
  2122.   1,
  2123.   1,
  2124.   1,
  2125.   1,
  2126.   2,
  2127.   2,
  2128.   2,
  2129.   1,
  2130.   1,
  2131.   2,
  2132.   2,
  2133.   2,
  2134.   2,
  2135.   1,
  2136.   1,
  2137.   2,
  2138.   3,
  2139.   1,
  2140.   1,
  2141.   1,
  2142.   2,
  2143.   1,
  2144.   1,
  2145.   2,
  2146.   1,
  2147.   1,
  2148.   1,
  2149.   2,
  2150.   2,
  2151.   2,
  2152.   1,
  2153.   2,
  2154.   1,
  2155.   1,
  2156.   2,
  2157.   1,
  2158.   2,
  2159.   1,
  2160.   2,
  2161.   1,
  2162.   1,
  2163.   1,
  2164.   1,
  2165.   1,
  2166.   1,
  2167.   1,
  2168.   1,
  2169.   2,
  2170.   1,
  2171.   1,
  2172.   1,
  2173.   1,
  2174.   1,
  2175.   1,
  2176.   0,
  2177.   1,
  2178.   0,
  2179.   2,
  2180.   2,
  2181.   0,
  2182.   1,
  2183.   1,
  2184.   0,
  2185.   0,
  2186.   0,
  2187.   0,
  2188.   2,
  2189.   0,
  2190.   1,
  2191.   0,
  2192.   1,
  2193.   1,
  2194.   2,
  2195.   0,
  2196.   0,
  2197.   0,
  2198.   3,
  2199.   2,
  2200.   3,
  2201.   1,
  2202.   2,
  2203.   2,
  2204.   1,
  2205.   2,
  2206.   2,
  2207.   2,
  2208.   2,
  2209.   2,
  2210.   1,
  2211.   1,
  2212.   1,
  2213.   2,
  2214.   2,
  2215.   2,
  2216.   1,
  2217.   1,
  2218.   1,
  2219.   1,
  2220.   2,
  2221.   1,
  2222.   2,
  2223.   3,
  2224.   2,
  2225.   2,
  2226.   2,
  2227.   2,
  2228.   3,
  2229.   1,
  2230.   2,
  2231.   1,
  2232.   3,
  2233.   2,
  2234.   2,
  2235.   1,
  2236.   2,
  2237.   1,
  2238.   0,
  2239.   1,
  2240.   2,
  2241.   2,
  2242.   2,
  2243.   0,
  2244.   0,
  2245.   0,
  2246.   2,
  2247.   1,
  2248.   2,
  2249.   2,
  2250.   1,
  2251.   1,
  2252.   1,
  2253.   1,
  2254.   1,
  2255.   2,
  2256.   1,
  2257.   1,
  2258.   1,
  2259.   1,
  2260.   2,
  2261.   1,
  2262.   2,
  2263.   1,
  2264.   0,
  2265.   1,
  2266.   2,
  2267.   1,
  2268.   1,
  2269.   3,
  2270.   3,
  2271.   3,
  2272.   1,
  2273.   1,
  2274.   2,
  2275.   1,
  2276.   2,
  2277.   3,
  2278.   2,
  2279.   1,
  2280.   2,
  2281.   1,
  2282.   1,
  2283.   3,
  2284.   2,
  2285.   0,
  2286.   2,
  2287.   1,
  2288.   4,
  2289.   2,
  2290.   2,
  2291.   4,
  2292.   7,
  2293.   7,
  2294.   7,
  2295.   7,
  2296.   7,
  2297.   7,
  2298.   3,
  2299.   0,
  2300.   0,
  2301.   2,
  2302.   2,
  2303.   0,
  2304.   0,
  2305.   1,
  2306.   2,
  2307.   -1,
  2308.   4,
  2309.   4,
  2310.   4,
  2311.   7,
  2312.   7,
  2313.   7,
  2314.   4,
  2315.   4,
  2316.   2,
  2317.   2,
  2318.   2,
  2319.   2,
  2320.   1,
  2321.   1,
  2322.   2,
  2323.   3,
  2324.   1,
  2325.   1,
  2326.   1,
  2327.   1,
  2328.   2,
  2329.   2,
  2330.   1,
  2331.   1,
  2332.   2,
  2333.   1,
  2334.   0,
  2335.   1,
  2336.   1,
  2337.   1,
  2338.   1,
  2339.   2,
  2340.   1,
  2341.   1,
  2342.   2,
  2343.   3,
  2344.   1,
  2345.   6,
  2346.   3,
  2347.   4,
  2348.   4,
  2349.   6,
  2350.   6,
  2351.   6,
  2352.   6,
  2353.   5,
  2354.   5,
  2355.   3,
  2356.   6,
  2357.   6,
  2358.   3,
  2359.   4,
  2360.   5,
  2361.   5,
  2362.   1,
  2363.   1,
  2364.   0,
  2365.   1,
  2366.   1,
  2367.   1,
  2368.   2,
  2369.   2,
  2370.   2,
  2371.   2,
  2372.   1,
  2373.   1,
  2374.   3,
  2375.   2,
  2376.   2,
  2377.   1,
  2378.   3,
  2379.   2,
  2380.   3,
  2381.   1,
  2382.   1,
  2383.   5,
  2384.   4,
  2385.   5,
  2386.   1,
  2387.   1,
  2388.   1,
  2389.   1,
  2390.   1,
  2391.   1,
  2392.   1,
  2393.   1,
  2394.   1,
  2395.   1,
  2396.   1,
  2397.   1,
  2398.   2,
  2399.   1,
  2400.   0,
  2401.   0,
  2402.   0,
  2403.   0,
  2404.   0,
  2405.   0,
  2406.   0,
  2407.   1,
  2408.   1,
  2409.   0,
  2410.   0,
  2411.   1,
  2412.   0,
  2413.   0,
  2414.   2,
  2415.   -1,
  2416.   4,
  2417.   4,
  2418.   4,
  2419.   4,
  2420.   4,
  2421.   2,
  2422.   3,
  2423.   2,
  2424.   1,
  2425.   2,
  2426.   3,
  2427.   1,
  2428.   2,
  2429.   2,
  2430.   3,
  2431.   2,
  2432.   0,
  2433.   3,
  2434.   1,
  2435.   1,
  2436.   -1
  2437. };
  2438.  
  2439. int Primitive_Count_Table [] = {
  2440.   (2 * sizeof(SCHEME_OBJECT)),
  2441.   (2 * sizeof(SCHEME_OBJECT)),
  2442.   (2 * sizeof(SCHEME_OBJECT)),
  2443.   (2 * sizeof(SCHEME_OBJECT)),
  2444.   (2 * sizeof(SCHEME_OBJECT)),
  2445.   (2 * sizeof(SCHEME_OBJECT)),
  2446.   (2 * sizeof(SCHEME_OBJECT)),
  2447.   (1 * sizeof(SCHEME_OBJECT)),
  2448.   (1 * sizeof(SCHEME_OBJECT)),
  2449.   (2 * sizeof(SCHEME_OBJECT)),
  2450.   (1 * sizeof(SCHEME_OBJECT)),
  2451.   (2 * sizeof(SCHEME_OBJECT)),
  2452.   (1 * sizeof(SCHEME_OBJECT)),
  2453.   (1 * sizeof(SCHEME_OBJECT)),
  2454.   (0 * sizeof(SCHEME_OBJECT)),
  2455.   (1 * sizeof(SCHEME_OBJECT)),
  2456.   (0 * sizeof(SCHEME_OBJECT)),
  2457.   (1 * sizeof(SCHEME_OBJECT)),
  2458.   (1 * sizeof(SCHEME_OBJECT)),
  2459.   (1 * sizeof(SCHEME_OBJECT)),
  2460.   (2 * sizeof(SCHEME_OBJECT)),
  2461.   (2 * sizeof(SCHEME_OBJECT)),
  2462.   (2 * sizeof(SCHEME_OBJECT)),
  2463.   (2 * sizeof(SCHEME_OBJECT)),
  2464.   (2 * sizeof(SCHEME_OBJECT)),
  2465.   (1 * sizeof(SCHEME_OBJECT)),
  2466.   (1 * sizeof(SCHEME_OBJECT)),
  2467.   (2 * sizeof(SCHEME_OBJECT)),
  2468.   (2 * sizeof(SCHEME_OBJECT)),
  2469.   (2 * sizeof(SCHEME_OBJECT)),
  2470.   (1 * sizeof(SCHEME_OBJECT)),
  2471.   (1 * sizeof(SCHEME_OBJECT)),
  2472.   (1 * sizeof(SCHEME_OBJECT)),
  2473.   (1 * sizeof(SCHEME_OBJECT)),
  2474.   (2 * sizeof(SCHEME_OBJECT)),
  2475.   (2 * sizeof(SCHEME_OBJECT)),
  2476.   (2 * sizeof(SCHEME_OBJECT)),
  2477.   (2 * sizeof(SCHEME_OBJECT)),
  2478.   (1 * sizeof(SCHEME_OBJECT)),
  2479.   (2 * sizeof(SCHEME_OBJECT)),
  2480.   (2 * sizeof(SCHEME_OBJECT)),
  2481.   (2 * sizeof(SCHEME_OBJECT)),
  2482.   (2 * sizeof(SCHEME_OBJECT)),
  2483.   (2 * sizeof(SCHEME_OBJECT)),
  2484.   (2 * sizeof(SCHEME_OBJECT)),
  2485.   (1 * sizeof(SCHEME_OBJECT)),
  2486.   (2 * sizeof(SCHEME_OBJECT)),
  2487.   (1 * sizeof(SCHEME_OBJECT)),
  2488.   (3 * sizeof(SCHEME_OBJECT)),
  2489.   (5 * sizeof(SCHEME_OBJECT)),
  2490.   (1 * sizeof(SCHEME_OBJECT)),
  2491.   (1 * sizeof(SCHEME_OBJECT)),
  2492.   (1 * sizeof(SCHEME_OBJECT)),
  2493.   (1 * sizeof(SCHEME_OBJECT)),
  2494.   (1 * sizeof(SCHEME_OBJECT)),
  2495.   (1 * sizeof(SCHEME_OBJECT)),
  2496.   (1 * sizeof(SCHEME_OBJECT)),
  2497.   (1 * sizeof(SCHEME_OBJECT)),
  2498.   (1 * sizeof(SCHEME_OBJECT)),
  2499.   (4 * sizeof(SCHEME_OBJECT)),
  2500.   (1 * sizeof(SCHEME_OBJECT)),
  2501.   (1 * sizeof(SCHEME_OBJECT)),
  2502.   (4 * sizeof(SCHEME_OBJECT)),
  2503.   (0 * sizeof(SCHEME_OBJECT)),
  2504.   (1 * sizeof(SCHEME_OBJECT)),
  2505.   (1 * sizeof(SCHEME_OBJECT)),
  2506.   (4 * sizeof(SCHEME_OBJECT)),
  2507.   (1 * sizeof(SCHEME_OBJECT)),
  2508.   (1 * sizeof(SCHEME_OBJECT)),
  2509.   (2 * sizeof(SCHEME_OBJECT)),
  2510.   (1 * sizeof(SCHEME_OBJECT)),
  2511.   (1 * sizeof(SCHEME_OBJECT)),
  2512.   (1 * sizeof(SCHEME_OBJECT)),
  2513.   (1 * sizeof(SCHEME_OBJECT)),
  2514.   (1 * sizeof(SCHEME_OBJECT)),
  2515.   (1 * sizeof(SCHEME_OBJECT)),
  2516.   (1 * sizeof(SCHEME_OBJECT)),
  2517.   (2 * sizeof(SCHEME_OBJECT)),
  2518.   (1 * sizeof(SCHEME_OBJECT)),
  2519.   (1 * sizeof(SCHEME_OBJECT)),
  2520.   (1 * sizeof(SCHEME_OBJECT)),
  2521.   (1 * sizeof(SCHEME_OBJECT)),
  2522.   (2 * sizeof(SCHEME_OBJECT)),
  2523.   (1 * sizeof(SCHEME_OBJECT)),
  2524.   (0 * sizeof(SCHEME_OBJECT)),
  2525.   (0 * sizeof(SCHEME_OBJECT)),
  2526.   (1 * sizeof(SCHEME_OBJECT)),
  2527.   (0 * sizeof(SCHEME_OBJECT)),
  2528.   (0 * sizeof(SCHEME_OBJECT)),
  2529.   (0 * sizeof(SCHEME_OBJECT)),
  2530.   (0 * sizeof(SCHEME_OBJECT)),
  2531.   (0 * sizeof(SCHEME_OBJECT)),
  2532.   (0 * sizeof(SCHEME_OBJECT)),
  2533.   (0 * sizeof(SCHEME_OBJECT)),
  2534.   (0 * sizeof(SCHEME_OBJECT)),
  2535.   (0 * sizeof(SCHEME_OBJECT)),
  2536.   (0 * sizeof(SCHEME_OBJECT)),
  2537.   (1 * sizeof(SCHEME_OBJECT)),
  2538.   (0 * sizeof(SCHEME_OBJECT)),
  2539.   (1 * sizeof(SCHEME_OBJECT)),
  2540.   (1 * sizeof(SCHEME_OBJECT)),
  2541.   (1 * sizeof(SCHEME_OBJECT)),
  2542.   (0 * sizeof(SCHEME_OBJECT)),
  2543.   (1 * sizeof(SCHEME_OBJECT)),
  2544.   (1 * sizeof(SCHEME_OBJECT)),
  2545.   (2 * sizeof(SCHEME_OBJECT)),
  2546.   (1 * sizeof(SCHEME_OBJECT)),
  2547.   (3 * sizeof(SCHEME_OBJECT)),
  2548.   (2 * sizeof(SCHEME_OBJECT)),
  2549.   (1 * sizeof(SCHEME_OBJECT)),
  2550.   (3 * sizeof(SCHEME_OBJECT)),
  2551.   (2 * sizeof(SCHEME_OBJECT)),
  2552.   (2 * sizeof(SCHEME_OBJECT)),
  2553.   (3 * sizeof(SCHEME_OBJECT)),
  2554.   (4 * sizeof(SCHEME_OBJECT)),
  2555.   (0 * sizeof(SCHEME_OBJECT)),
  2556.   (1 * sizeof(SCHEME_OBJECT)),
  2557.   (2 * sizeof(SCHEME_OBJECT)),
  2558.   (1 * sizeof(SCHEME_OBJECT)),
  2559.   (1 * sizeof(SCHEME_OBJECT)),
  2560.   (2 * sizeof(SCHEME_OBJECT)),
  2561.   (1 * sizeof(SCHEME_OBJECT)),
  2562.   (2 * sizeof(SCHEME_OBJECT)),
  2563.   (1 * sizeof(SCHEME_OBJECT)),
  2564.   (1 * sizeof(SCHEME_OBJECT)),
  2565.   (2 * sizeof(SCHEME_OBJECT)),
  2566.   (2 * sizeof(SCHEME_OBJECT)),
  2567.   (1 * sizeof(SCHEME_OBJECT)),
  2568.   (1 * sizeof(SCHEME_OBJECT)),
  2569.   (1 * sizeof(SCHEME_OBJECT)),
  2570.   (1 * sizeof(SCHEME_OBJECT)),
  2571.   (1 * sizeof(SCHEME_OBJECT)),
  2572.   (1 * sizeof(SCHEME_OBJECT)),
  2573.   (2 * sizeof(SCHEME_OBJECT)),
  2574.   (1 * sizeof(SCHEME_OBJECT)),
  2575.   (1 * sizeof(SCHEME_OBJECT)),
  2576.   (1 * sizeof(SCHEME_OBJECT)),
  2577.   (1 * sizeof(SCHEME_OBJECT)),
  2578.   (1 * sizeof(SCHEME_OBJECT)),
  2579.   (1 * sizeof(SCHEME_OBJECT)),
  2580.   (2 * sizeof(SCHEME_OBJECT)),
  2581.   (2 * sizeof(SCHEME_OBJECT)),
  2582.   (1 * sizeof(SCHEME_OBJECT)),
  2583.   (1 * sizeof(SCHEME_OBJECT)),
  2584.   (1 * sizeof(SCHEME_OBJECT)),
  2585.   (1 * sizeof(SCHEME_OBJECT)),
  2586.   (1 * sizeof(SCHEME_OBJECT)),
  2587.   (2 * sizeof(SCHEME_OBJECT)),
  2588.   (2 * sizeof(SCHEME_OBJECT)),
  2589.   (2 * sizeof(SCHEME_OBJECT)),
  2590.   (1 * sizeof(SCHEME_OBJECT)),
  2591.   (1 * sizeof(SCHEME_OBJECT)),
  2592.   (2 * sizeof(SCHEME_OBJECT)),
  2593.   (2 * sizeof(SCHEME_OBJECT)),
  2594.   (2 * sizeof(SCHEME_OBJECT)),
  2595.   (2 * sizeof(SCHEME_OBJECT)),
  2596.   (1 * sizeof(SCHEME_OBJECT)),
  2597.   (1 * sizeof(SCHEME_OBJECT)),
  2598.   (2 * sizeof(SCHEME_OBJECT)),
  2599.   (3 * sizeof(SCHEME_OBJECT)),
  2600.   (1 * sizeof(SCHEME_OBJECT)),
  2601.   (1 * sizeof(SCHEME_OBJECT)),
  2602.   (1 * sizeof(SCHEME_OBJECT)),
  2603.   (2 * sizeof(SCHEME_OBJECT)),
  2604.   (1 * sizeof(SCHEME_OBJECT)),
  2605.   (1 * sizeof(SCHEME_OBJECT)),
  2606.   (2 * sizeof(SCHEME_OBJECT)),
  2607.   (1 * sizeof(SCHEME_OBJECT)),
  2608.   (1 * sizeof(SCHEME_OBJECT)),
  2609.   (1 * sizeof(SCHEME_OBJECT)),
  2610.   (2 * sizeof(SCHEME_OBJECT)),
  2611.   (2 * sizeof(SCHEME_OBJECT)),
  2612.   (2 * sizeof(SCHEME_OBJECT)),
  2613.   (1 * sizeof(SCHEME_OBJECT)),
  2614.   (2 * sizeof(SCHEME_OBJECT)),
  2615.   (1 * sizeof(SCHEME_OBJECT)),
  2616.   (1 * sizeof(SCHEME_OBJECT)),
  2617.   (2 * sizeof(SCHEME_OBJECT)),
  2618.   (1 * sizeof(SCHEME_OBJECT)),
  2619.   (2 * sizeof(SCHEME_OBJECT)),
  2620.   (1 * sizeof(SCHEME_OBJECT)),
  2621.   (2 * sizeof(SCHEME_OBJECT)),
  2622.   (1 * sizeof(SCHEME_OBJECT)),
  2623.   (1 * sizeof(SCHEME_OBJECT)),
  2624.   (1 * sizeof(SCHEME_OBJECT)),
  2625.   (1 * sizeof(SCHEME_OBJECT)),
  2626.   (1 * sizeof(SCHEME_OBJECT)),
  2627.   (1 * sizeof(SCHEME_OBJECT)),
  2628.   (1 * sizeof(SCHEME_OBJECT)),
  2629.   (1 * sizeof(SCHEME_OBJECT)),
  2630.   (2 * sizeof(SCHEME_OBJECT)),
  2631.   (1 * sizeof(SCHEME_OBJECT)),
  2632.   (1 * sizeof(SCHEME_OBJECT)),
  2633.   (1 * sizeof(SCHEME_OBJECT)),
  2634.   (1 * sizeof(SCHEME_OBJECT)),
  2635.   (1 * sizeof(SCHEME_OBJECT)),
  2636.   (1 * sizeof(SCHEME_OBJECT)),
  2637.   (0 * sizeof(SCHEME_OBJECT)),
  2638.   (1 * sizeof(SCHEME_OBJECT)),
  2639.   (0 * sizeof(SCHEME_OBJECT)),
  2640.   (2 * sizeof(SCHEME_OBJECT)),
  2641.   (2 * sizeof(SCHEME_OBJECT)),
  2642.   (0 * sizeof(SCHEME_OBJECT)),
  2643.   (1 * sizeof(SCHEME_OBJECT)),
  2644.   (1 * sizeof(SCHEME_OBJECT)),
  2645.   (0 * sizeof(SCHEME_OBJECT)),
  2646.   (0 * sizeof(SCHEME_OBJECT)),
  2647.   (0 * sizeof(SCHEME_OBJECT)),
  2648.   (0 * sizeof(SCHEME_OBJECT)),
  2649.   (2 * sizeof(SCHEME_OBJECT)),
  2650.   (0 * sizeof(SCHEME_OBJECT)),
  2651.   (1 * sizeof(SCHEME_OBJECT)),
  2652.   (0 * sizeof(SCHEME_OBJECT)),
  2653.   (1 * sizeof(SCHEME_OBJECT)),
  2654.   (1 * sizeof(SCHEME_OBJECT)),
  2655.   (2 * sizeof(SCHEME_OBJECT)),
  2656.   (0 * sizeof(SCHEME_OBJECT)),
  2657.   (0 * sizeof(SCHEME_OBJECT)),
  2658.   (0 * sizeof(SCHEME_OBJECT)),
  2659.   (3 * sizeof(SCHEME_OBJECT)),
  2660.   (2 * sizeof(SCHEME_OBJECT)),
  2661.   (3 * sizeof(SCHEME_OBJECT)),
  2662.   (1 * sizeof(SCHEME_OBJECT)),
  2663.   (2 * sizeof(SCHEME_OBJECT)),
  2664.   (2 * sizeof(SCHEME_OBJECT)),
  2665.   (1 * sizeof(SCHEME_OBJECT)),
  2666.   (2 * sizeof(SCHEME_OBJECT)),
  2667.   (2 * sizeof(SCHEME_OBJECT)),
  2668.   (2 * sizeof(SCHEME_OBJECT)),
  2669.   (2 * sizeof(SCHEME_OBJECT)),
  2670.   (2 * sizeof(SCHEME_OBJECT)),
  2671.   (1 * sizeof(SCHEME_OBJECT)),
  2672.   (1 * sizeof(SCHEME_OBJECT)),
  2673.   (1 * sizeof(SCHEME_OBJECT)),
  2674.   (2 * sizeof(SCHEME_OBJECT)),
  2675.   (2 * sizeof(SCHEME_OBJECT)),
  2676.   (2 * sizeof(SCHEME_OBJECT)),
  2677.   (1 * sizeof(SCHEME_OBJECT)),
  2678.   (1 * sizeof(SCHEME_OBJECT)),
  2679.   (1 * sizeof(SCHEME_OBJECT)),
  2680.   (1 * sizeof(SCHEME_OBJECT)),
  2681.   (2 * sizeof(SCHEME_OBJECT)),
  2682.   (1 * sizeof(SCHEME_OBJECT)),
  2683.   (2 * sizeof(SCHEME_OBJECT)),
  2684.   (3 * sizeof(SCHEME_OBJECT)),
  2685.   (2 * sizeof(SCHEME_OBJECT)),
  2686.   (2 * sizeof(SCHEME_OBJECT)),
  2687.   (2 * sizeof(SCHEME_OBJECT)),
  2688.   (2 * sizeof(SCHEME_OBJECT)),
  2689.   (3 * sizeof(SCHEME_OBJECT)),
  2690.   (1 * sizeof(SCHEME_OBJECT)),
  2691.   (2 * sizeof(SCHEME_OBJECT)),
  2692.   (1 * sizeof(SCHEME_OBJECT)),
  2693.   (3 * sizeof(SCHEME_OBJECT)),
  2694.   (2 * sizeof(SCHEME_OBJECT)),
  2695.   (2 * sizeof(SCHEME_OBJECT)),
  2696.   (1 * sizeof(SCHEME_OBJECT)),
  2697.   (2 * sizeof(SCHEME_OBJECT)),
  2698.   (1 * sizeof(SCHEME_OBJECT)),
  2699.   (0 * sizeof(SCHEME_OBJECT)),
  2700.   (1 * sizeof(SCHEME_OBJECT)),
  2701.   (2 * sizeof(SCHEME_OBJECT)),
  2702.   (2 * sizeof(SCHEME_OBJECT)),
  2703.   (2 * sizeof(SCHEME_OBJECT)),
  2704.   (0 * sizeof(SCHEME_OBJECT)),
  2705.   (0 * sizeof(SCHEME_OBJECT)),
  2706.   (0 * sizeof(SCHEME_OBJECT)),
  2707.   (2 * sizeof(SCHEME_OBJECT)),
  2708.   (1 * sizeof(SCHEME_OBJECT)),
  2709.   (2 * sizeof(SCHEME_OBJECT)),
  2710.   (2 * sizeof(SCHEME_OBJECT)),
  2711.   (1 * sizeof(SCHEME_OBJECT)),
  2712.   (1 * sizeof(SCHEME_OBJECT)),
  2713.   (1 * sizeof(SCHEME_OBJECT)),
  2714.   (1 * sizeof(SCHEME_OBJECT)),
  2715.   (1 * sizeof(SCHEME_OBJECT)),
  2716.   (2 * sizeof(SCHEME_OBJECT)),
  2717.   (1 * sizeof(SCHEME_OBJECT)),
  2718.   (1 * sizeof(SCHEME_OBJECT)),
  2719.   (1 * sizeof(SCHEME_OBJECT)),
  2720.   (1 * sizeof(SCHEME_OBJECT)),
  2721.   (2 * sizeof(SCHEME_OBJECT)),
  2722.   (1 * sizeof(SCHEME_OBJECT)),
  2723.   (2 * sizeof(SCHEME_OBJECT)),
  2724.   (1 * sizeof(SCHEME_OBJECT)),
  2725.   (0 * sizeof(SCHEME_OBJECT)),
  2726.   (1 * sizeof(SCHEME_OBJECT)),
  2727.   (2 * sizeof(SCHEME_OBJECT)),
  2728.   (1 * sizeof(SCHEME_OBJECT)),
  2729.   (1 * sizeof(SCHEME_OBJECT)),
  2730.   (3 * sizeof(SCHEME_OBJECT)),
  2731.   (3 * sizeof(SCHEME_OBJECT)),
  2732.   (3 * sizeof(SCHEME_OBJECT)),
  2733.   (1 * sizeof(SCHEME_OBJECT)),
  2734.   (1 * sizeof(SCHEME_OBJECT)),
  2735.   (2 * sizeof(SCHEME_OBJECT)),
  2736.   (1 * sizeof(SCHEME_OBJECT)),
  2737.   (2 * sizeof(SCHEME_OBJECT)),
  2738.   (3 * sizeof(SCHEME_OBJECT)),
  2739.   (2 * sizeof(SCHEME_OBJECT)),
  2740.   (1 * sizeof(SCHEME_OBJECT)),
  2741.   (2 * sizeof(SCHEME_OBJECT)),
  2742.   (1 * sizeof(SCHEME_OBJECT)),
  2743.   (1 * sizeof(SCHEME_OBJECT)),
  2744.   (3 * sizeof(SCHEME_OBJECT)),
  2745.   (2 * sizeof(SCHEME_OBJECT)),
  2746.   (0 * sizeof(SCHEME_OBJECT)),
  2747.   (2 * sizeof(SCHEME_OBJECT)),
  2748.   (1 * sizeof(SCHEME_OBJECT)),
  2749.   (4 * sizeof(SCHEME_OBJECT)),
  2750.   (2 * sizeof(SCHEME_OBJECT)),
  2751.   (2 * sizeof(SCHEME_OBJECT)),
  2752.   (4 * sizeof(SCHEME_OBJECT)),
  2753.   (7 * sizeof(SCHEME_OBJECT)),
  2754.   (7 * sizeof(SCHEME_OBJECT)),
  2755.   (7 * sizeof(SCHEME_OBJECT)),
  2756.   (7 * sizeof(SCHEME_OBJECT)),
  2757.   (7 * sizeof(SCHEME_OBJECT)),
  2758.   (7 * sizeof(SCHEME_OBJECT)),
  2759.   (3 * sizeof(SCHEME_OBJECT)),
  2760.   (0 * sizeof(SCHEME_OBJECT)),
  2761.   (0 * sizeof(SCHEME_OBJECT)),
  2762.   (2 * sizeof(SCHEME_OBJECT)),
  2763.   (2 * sizeof(SCHEME_OBJECT)),
  2764.   (0 * sizeof(SCHEME_OBJECT)),
  2765.   (0 * sizeof(SCHEME_OBJECT)),
  2766.   (1 * sizeof(SCHEME_OBJECT)),
  2767.   (2 * sizeof(SCHEME_OBJECT)),
  2768.   (-1 * sizeof(SCHEME_OBJECT)),
  2769.   (4 * sizeof(SCHEME_OBJECT)),
  2770.   (4 * sizeof(SCHEME_OBJECT)),
  2771.   (4 * sizeof(SCHEME_OBJECT)),
  2772.   (7 * sizeof(SCHEME_OBJECT)),
  2773.   (7 * sizeof(SCHEME_OBJECT)),
  2774.   (7 * sizeof(SCHEME_OBJECT)),
  2775.   (4 * sizeof(SCHEME_OBJECT)),
  2776.   (4 * sizeof(SCHEME_OBJECT)),
  2777.   (2 * sizeof(SCHEME_OBJECT)),
  2778.   (2 * sizeof(SCHEME_OBJECT)),
  2779.   (2 * sizeof(SCHEME_OBJECT)),
  2780.   (2 * sizeof(SCHEME_OBJECT)),
  2781.   (1 * sizeof(SCHEME_OBJECT)),
  2782.   (1 * sizeof(SCHEME_OBJECT)),
  2783.   (2 * sizeof(SCHEME_OBJECT)),
  2784.   (3 * sizeof(SCHEME_OBJECT)),
  2785.   (1 * sizeof(SCHEME_OBJECT)),
  2786.   (1 * sizeof(SCHEME_OBJECT)),
  2787.   (1 * sizeof(SCHEME_OBJECT)),
  2788.   (1 * sizeof(SCHEME_OBJECT)),
  2789.   (2 * sizeof(SCHEME_OBJECT)),
  2790.   (2 * sizeof(SCHEME_OBJECT)),
  2791.   (1 * sizeof(SCHEME_OBJECT)),
  2792.   (1 * sizeof(SCHEME_OBJECT)),
  2793.   (2 * sizeof(SCHEME_OBJECT)),
  2794.   (1 * sizeof(SCHEME_OBJECT)),
  2795.   (0 * sizeof(SCHEME_OBJECT)),
  2796.   (1 * sizeof(SCHEME_OBJECT)),
  2797.   (1 * sizeof(SCHEME_OBJECT)),
  2798.   (1 * sizeof(SCHEME_OBJECT)),
  2799.   (1 * sizeof(SCHEME_OBJECT)),
  2800.   (2 * sizeof(SCHEME_OBJECT)),
  2801.   (1 * sizeof(SCHEME_OBJECT)),
  2802.   (1 * sizeof(SCHEME_OBJECT)),
  2803.   (2 * sizeof(SCHEME_OBJECT)),
  2804.   (3 * sizeof(SCHEME_OBJECT)),
  2805.   (1 * sizeof(SCHEME_OBJECT)),
  2806.   (6 * sizeof(SCHEME_OBJECT)),
  2807.   (3 * sizeof(SCHEME_OBJECT)),
  2808.   (4 * sizeof(SCHEME_OBJECT)),
  2809.   (4 * sizeof(SCHEME_OBJECT)),
  2810.   (6 * sizeof(SCHEME_OBJECT)),
  2811.   (6 * sizeof(SCHEME_OBJECT)),
  2812.   (6 * sizeof(SCHEME_OBJECT)),
  2813.   (6 * sizeof(SCHEME_OBJECT)),
  2814.   (5 * sizeof(SCHEME_OBJECT)),
  2815.   (5 * sizeof(SCHEME_OBJECT)),
  2816.   (3 * sizeof(SCHEME_OBJECT)),
  2817.   (6 * sizeof(SCHEME_OBJECT)),
  2818.   (6 * sizeof(SCHEME_OBJECT)),
  2819.   (3 * sizeof(SCHEME_OBJECT)),
  2820.   (4 * sizeof(SCHEME_OBJECT)),
  2821.   (5 * sizeof(SCHEME_OBJECT)),
  2822.   (5 * sizeof(SCHEME_OBJECT)),
  2823.   (1 * sizeof(SCHEME_OBJECT)),
  2824.   (1 * sizeof(SCHEME_OBJECT)),
  2825.   (0 * sizeof(SCHEME_OBJECT)),
  2826.   (1 * sizeof(SCHEME_OBJECT)),
  2827.   (1 * sizeof(SCHEME_OBJECT)),
  2828.   (1 * sizeof(SCHEME_OBJECT)),
  2829.   (2 * sizeof(SCHEME_OBJECT)),
  2830.   (2 * sizeof(SCHEME_OBJECT)),
  2831.   (2 * sizeof(SCHEME_OBJECT)),
  2832.   (2 * sizeof(SCHEME_OBJECT)),
  2833.   (1 * sizeof(SCHEME_OBJECT)),
  2834.   (1 * sizeof(SCHEME_OBJECT)),
  2835.   (3 * sizeof(SCHEME_OBJECT)),
  2836.   (2 * sizeof(SCHEME_OBJECT)),
  2837.   (2 * sizeof(SCHEME_OBJECT)),
  2838.   (1 * sizeof(SCHEME_OBJECT)),
  2839.   (3 * sizeof(SCHEME_OBJECT)),
  2840.   (2 * sizeof(SCHEME_OBJECT)),
  2841.   (3 * sizeof(SCHEME_OBJECT)),
  2842.   (1 * sizeof(SCHEME_OBJECT)),
  2843.   (1 * sizeof(SCHEME_OBJECT)),
  2844.   (5 * sizeof(SCHEME_OBJECT)),
  2845.   (4 * sizeof(SCHEME_OBJECT)),
  2846.   (5 * sizeof(SCHEME_OBJECT)),
  2847.   (1 * sizeof(SCHEME_OBJECT)),
  2848.   (1 * sizeof(SCHEME_OBJECT)),
  2849.   (1 * sizeof(SCHEME_OBJECT)),
  2850.   (1 * sizeof(SCHEME_OBJECT)),
  2851.   (1 * sizeof(SCHEME_OBJECT)),
  2852.   (1 * sizeof(SCHEME_OBJECT)),
  2853.   (1 * sizeof(SCHEME_OBJECT)),
  2854.   (1 * sizeof(SCHEME_OBJECT)),
  2855.   (1 * sizeof(SCHEME_OBJECT)),
  2856.   (1 * sizeof(SCHEME_OBJECT)),
  2857.   (1 * sizeof(SCHEME_OBJECT)),
  2858.   (1 * sizeof(SCHEME_OBJECT)),
  2859.   (2 * sizeof(SCHEME_OBJECT)),
  2860.   (1 * sizeof(SCHEME_OBJECT)),
  2861.   (0 * sizeof(SCHEME_OBJECT)),
  2862.   (0 * sizeof(SCHEME_OBJECT)),
  2863.   (0 * sizeof(SCHEME_OBJECT)),
  2864.   (0 * sizeof(SCHEME_OBJECT)),
  2865.   (0 * sizeof(SCHEME_OBJECT)),
  2866.   (0 * sizeof(SCHEME_OBJECT)),
  2867.   (0 * sizeof(SCHEME_OBJECT)),
  2868.   (1 * sizeof(SCHEME_OBJECT)),
  2869.   (1 * sizeof(SCHEME_OBJECT)),
  2870.   (0 * sizeof(SCHEME_OBJECT)),
  2871.   (0 * sizeof(SCHEME_OBJECT)),
  2872.   (1 * sizeof(SCHEME_OBJECT)),
  2873.   (0 * sizeof(SCHEME_OBJECT)),
  2874.   (0 * sizeof(SCHEME_OBJECT)),
  2875.   (2 * sizeof(SCHEME_OBJECT)),
  2876.   (-1 * sizeof(SCHEME_OBJECT)),
  2877.   (4 * sizeof(SCHEME_OBJECT)),
  2878.   (4 * sizeof(SCHEME_OBJECT)),
  2879.   (4 * sizeof(SCHEME_OBJECT)),
  2880.   (4 * sizeof(SCHEME_OBJECT)),
  2881.   (4 * sizeof(SCHEME_OBJECT)),
  2882.   (2 * sizeof(SCHEME_OBJECT)),
  2883.   (3 * sizeof(SCHEME_OBJECT)),
  2884.   (2 * sizeof(SCHEME_OBJECT)),
  2885.   (1 * sizeof(SCHEME_OBJECT)),
  2886.   (2 * sizeof(SCHEME_OBJECT)),
  2887.   (3 * sizeof(SCHEME_OBJECT)),
  2888.   (1 * sizeof(SCHEME_OBJECT)),
  2889.   (2 * sizeof(SCHEME_OBJECT)),
  2890.   (2 * sizeof(SCHEME_OBJECT)),
  2891.   (3 * sizeof(SCHEME_OBJECT)),
  2892.   (2 * sizeof(SCHEME_OBJECT)),
  2893.   (0 * sizeof(SCHEME_OBJECT)),
  2894.   (3 * sizeof(SCHEME_OBJECT)),
  2895.   (1 * sizeof(SCHEME_OBJECT)),
  2896.   (1 * sizeof(SCHEME_OBJECT)),
  2897.   (-1 * sizeof(SCHEME_OBJECT))
  2898. };
  2899.